Select Code to Download

while (<FILE>) {
  if (/^From .+ 2003/) {
...
  }
    print $OUT, @mails;
}

while (<FILE>) {
  if (/^From /) {
...
  }
    print $OUT, @mails;
}