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