use strict;
use HTML::TokeParser::Simple 3.15;
my $p = HTML::TokeParser::Simple->new( url => $in{$url} );
while ( my $token = $p->get_token ) {
if ( $token->is_start_tag('a') ) {
my $href = $token->get_attr('href');
$token->set_attr('href', "foo$href");
}
print $token->as_is;
}