$title

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