in reply to A silly reg exp question
You might want to take a look at the /e modifier for regular expressions in perlre.