#!/usr/bin/perl

use Encode;
use LWP::Simple;
#undef $/;
#$/='';

my $url = shift;
$a = 0;
$con = get($url);

for( $con) { s/\n.*BEGIN toolbar_pane(.|\n)*?(<div id="content_pane">)/<hr>$2/;
 s!<img src="palm90.png".*!!;
 s/(a href=").*?index.cgi\?(.*?)"/"$1" . norm("$2").'"' /eg;
}
print $con;

sub norm{
 my $a = shift;
 $a =~ s/\%(..)/pack("c",hex($1))/ge;
# $a = encode("iso-8859-1",decode("utf8",$a));
 $a = decode("utf8",$a);
 print STDERR $a;
 $a =~ tr[ãõáéíóúçâêôûÃÕÁÉÍÓÚÇÂÊÔÛ]
         [aoaeioucaeouAOAEIOUCAEOU];
 $a;
}