#!/usr/bin/perl
sub crack
{
$a =~ m/date="(.*)"/;
$as = $1;
$b =~ m/date="(.*)"/;
$bs = $1;
return $bs <=> $as;
}
$/="";
while(<>) {
push(@list, $_) if /date=/;
}
print qq[
qmail news
qmail news
];
foreach (sort(crack @list)) {
s!date="(....)(..)(..)(.?)">!$& $1/$2/$3 !;
print;
}
print "
";