Oh, please don't use eval() for that. That's not a smart reason to use eval(). There are better ways to approach the problem, as have been shown.

japhy -- Perl and Regex Hacker