in reply to Eval Function Question

The $ in $1 is not backslash-escaped. Typo here, or missing in your code?

In Section Seekers of Perl Wisdom