Help for this page

Select Code to Download

Select or download this

use HTML::TokeParser::Simple;
sub dummy () {
...
my $html = "<font color=\"#0000ff\" face=\"Verdana\" size=\"1\">\n</fo
+nt>\n<p align=\"center\"><a href=\"#\"><font color=\"#0000ff\" face=\
+"Verdana\" size=\"1\">&euro; 750aa</font><br /></a></p>";

print cleanup_html($html);