my $printing;
while( <INPUT> ) {
  if( /^From (\w+)/ ) {
    if( $1 eq 'mailsnarf' ) {
      $printing = 1;
    } else {
      $printing = undef;
    }
  }

  print if $printing;
}