in reply to Regex substitution problem

You should use something like Email::Simple from the Perl Email Project

In Section Seekers of Perl Wisdom