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.
Priority 1, Priority 2, Priority 3
Priority 1, Priority 0, Priority -1
Urgent, important, favour
Data loss, bug, enhancement
Out of scope, out of budget, out of line
Family, friends, work
Impossible, inconceivable, implemented
Results (260 votes),