I think you may be trying too hard to use perlisms (like the regexp replace). Often, it's better to just look for simpler ways to do things.

But I'm dreaming about myself as Great_Saint_YAPH_Perl_Lover ;-))