while (<STDIN>)
{
  last if /^$/;    
  $from = "$1" if /^From:(.+)$/; 
  $subject = "$1" if /^Subject:(.+)$/; 
}

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