my $found= 0; while( <> ) { if( 0 == $found && /^From: "\Q$Name\E"/ ) { $found++; } elsif( 1 == $found && /^To: