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

##</code><code>##

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