It seems you're big on one liners, but if you don't
mind scripts:
#!/usr/bin/perl
$file=shift or die "You must enter a filename!";
open(FILE,$file);
while(<FILE>)
{
$lines .= $_;
}
close(FILE);
$lines =~ s/<\n*\/*\n*f\n*o\n*n\n*t\n*.*?>//igs;
open(FILE,">$file");
print FILE $lines;
close(FILE);
That should do it.
Nick Reinking