libregexp-pattern-defhash-perl