#! perl -slw
use strict;
use LWP::Simple;

while( <DATA> ) {
	chomp;
	my $html = get $_;

	$html =~ s[( <FONT \s+ (?: (?:"[^"]+") | (?:'[^']+') | [^>]* ) > )]  #"
	{
		my $tag = $1;
		$tag =~ s[ face \s* = \s* (?: (?:"[^"]+") | (?:'[^']+') | [^\s]+ ) ][]ixm; #"
		$tag
	}eximg;

	my $out = $ENV{TMP} . '\\' .time() . '.htm';
	open OUT, '>', $out or warn $!;
	print OUT $html;
	close OUT;
	system( $out );
}

__DATA__
http://www.webdiner.com/annexe/font/font.htm
http://www.electricearl.com/fonttest.html
http://www.ilovethisplace.com/webdesign/fonts.html
http://www.york.ac.uk/depts/maths/symbchrc.htm
http://www.tedmontgomery.com/tutorial/style.html#face