#!/usr/bin/perl
use File::stat;
foreach $file (<@ARGV>) {
print STDERR "$file\n";
open TXT, "<$file";
($title,@body) = <TXT>;
close TXT;
open HTML, ">$file.html";
print HTML "<title>$title</title><body>@body</body>";
close HTML;
open TIDY, "tidy -quiet -asxhtml $file.html |";
$tidy = join("", <TIDY>);
($title) = ($tidy =~ m!<title>(.*)</title>!s);
($body) = ($tidy =~ m!<body>(.*)</body>!s);
$mtime = stat($file)->mtime;
open TXT, ">$file";
print TXT "$title$body";
close TXT;
utime $mtime, $mtime, $file;
unlink "$file.html";
}
