#!/usr/bin/perl -w

my $file = "./oldcoffee.tmp";
my $out = ">./coffee.tmp";
my @mails;
open OUT, $out || die "Can't open $out!\n";
open FILE, $file || die "Can't open file oldcoffee!\n";
while (<FILE>) {
  if (/^From /) {
    $mails[$#mails + 1] = $_;
  }
  else {
    $mails[$#mails] .= $_;
  }
	print $OUT, @mails;
}
close FILE, $file || die "Can't close file oldcoffee!\n";
close OUT, $out || die "Can't close $out!\n";

##</code><code>##

if (/^From - \+ 2003/)