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


in reply to Regex Question

if (($data =~ /Subject:(.*)\*\*(.*)\*/i)) { $out = trim($2); }
print $out;
exit;

[download]
hope this helps...

Note: Sorry, Remove '&trim' or use an appropriate trim subroutine

In Section Seekers of Perl Wisdom