http://www.perlmonks.org?node_id=1014638


in reply to Regex Question

The following could be a start: 


$data =~ /^Subject.*\*\*(.*?)\*/;

print "$1\n";

[download]
See here how it works.

HTH, Rata

In Section Seekers of Perl Wisdom