Re: regex question

[Ovid]

in reply to regex question

You'll need to customize it, but ...

    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;
    }