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