I'm glad you managed to solve your problem.

Looking at your code I note that you use English;. You might want to change that to use English q{-no_match_vars}; to avoid a performance hit against any regular expression matching in your code. This is because once $' or $` ($PREMATCH and $POSTMATCH) are mentioned in a script it has an effect on all matches as pre- and post-match strings for any and all matches have to be saved since the perl interpretter has no way of knowing when they might be required. The English module will incur this performance penalty unless modified as suggested. Refer to perlre for more information.

I hope this is of interest.

Cheers,

JohnGG