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

print "$1\n";