my $parser = HTML::TokeParser::Simple->new(string => $html);
    
my $new_html;
  
while ( my $token = $parser->get_token ) {   
    for ( 'src', 'href' ) {
        my $attr = $_;
            
        my $value;
        next unless $value = $token->get_attr($attr);
            
        next unless $value =~ /\.(gif|jpe?g|png|swf)$/;
            
        $value =~ s/\/([\.[:word:]\-]+?)$/$new_url$1/;
                        
        $token->set_attr($attr,$value);
    }
    $new_html .= $token->as_is;
}
[download]

use URI::URL;

Teabag

URI::URL is only used for old stuff.. backward compatibility and all that, Looks like URI is the one, however using this are you saying i should parse out all the URL's and then use this to fix them and put them in.. or could i do a regexp with /e on the end and do it all in one line?

Like suggested before, take a look at URI and if you do, please please please don't overlook the nifty -yet annoying ;)- <base... /> module.