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