while (<STDIN>)
{
  last if /^$/;    

    if ( $_ =~ /^From: (.+?)$/i )
    {
       $newFrom = $1;
       $newFrom = $1 if $newFrom =~ /<(\S+)>/;
    }
	
   $subject = "$1" if /^Subject:(.+)$/; 
}

while (<STDIN>) 
{	
	push @message, $_;
}