while (<FILE>) {
  if (/^From .+ 2003/) {
    $mails[$#mails + 1] = $_;
  }
  else {
    $mails[$#mails] .= $_;
  }
    print $OUT, @mails;
}