if( /^Subject: (.+)$/ ) {
    $original_subject = $1;
    if( $modify_subject ) {
      print LOG "Subject modified\n" if( $log );
      s/$1/[friends]: $original_subject/;
    }
}