in reply to Removing data from a string with Regex
In true TMTOWTDI style you could also use that which is below, although it is lacking a bit in the optimization.
jclovs$from =~ /@/; $from = $`;
In Section
Seekers of Perl Wisdom