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

##</code><code>##

      s/Subject: /Subject: [friends]: /;

##</code><code>##

open( MAIL, "|$sendmail -f $myaddress $sender" );

##</code><code>##

/^From ([-a-zA-Z0-9_.@]+) .+$/