#! /usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
use URI;
my $t = HTML::TreeBuilder->new_from_file(*DATA)
or die qq{TB->new failed: $!\n};
my @anchors = $t->look_down(_tag => q{a});
for my $anchor (@anchors){
my $href = $anchor->attr(q{href});
my $uri = URI->new($href);
my $host = $uri->host;
next unless $host eq q{www.mysite.org};
my %query_form = $uri->query_form;
next unless exists $query_form{page};
my $replace = sprintf(q{pages/%s.htm}, $query_form{page});
$anchor->attr(q{href}, $replace);
}
print $t->as_HTML(q{}, q{ }, {p => 0});
__DATA__
mysite
text
text
text