Select Code to Download

Parsing of undecoded UTF-8 will give garbage when decoding entities at
+ /usr/lib/perl5/site_perl/5.8/cygwin/HTML/Parser.pm line 104.

#!perl -w

...
} # end foreach

print $root->as_HTML;

use LWP::UserAgent;
use HTML::Parser;
...
else {
    die $response->status_line;
}

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/