perl-tie-regexphash