Select Code to Download

if( /^Subject: (.+)$/ ) {
    $original_subject = $1;
...
      s/$1/[friends]: $original_subject/;
    }
}

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

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

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