#!/usr/bin/perl -w
# top
print "
Email
";
# skip first line
my $line = <>;
# headers
print "\n";
last;
}
if (! /^(\S+):/) {
next;
}
s//>/g;
# nospam
s/@/_AT_/g;
s/^(\S+):(.+)$/$1<\/b> $2
/g;
print;
};
# body
print "\n";
while (<>) {
s//>/g;
s/^\n/<\/p>\n
\n/;
print;
}
# end
print "
\n";
print "\n";