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