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

hope this helps...

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