perl Tie-RegexpHash