in reply to
The following could be a start:
$data =~ /^Subject.*\*\*(.*?)\*/;
A better way to do this is [docs://perlre] which produces a link, perlre, (to the perlre page http://perldoc.perl.org/) and the current docs.
Though, I suppose, if directing one's suggestions to someone who hasn't updated/upgraded his or her installed Perl since 1999, the Monastery docs might be more appropriate.
Results (318 votes),