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