Select Code to Download

$/ = "From mailsnarf\n";
while(defined(my $para = <$infile>)) {
  # ...
}

while(defined(my $line = <$infile>)) {
  next if($line =~ /^From (\w+)$/ ... $line =~ /^From (\w+)$/);
  # ...
}