if (/^Subject:(\s+)(\S+).*$/

##</code><code>##

if (/^Subject:(\s+)(.*)$/) {
   $subject = $2;
}