while( $html =~ m/\<script .*? src=\"(.+?)\Q.js"><\/script>\E/gis 
+){
        
        my $js_url = $1;

        if ($js_url !~ /^https?:\/\//) {
            $js_url = HTML::Miner::get_absolute_url($url, $js_url);
        }

        push( @result_arr, "$js_url.js" );
    }

    return \@result_arr;

##</code><code>##


$html =~ m/(<link [^<]*?href=\"([^\"]+?\.css[^"]*?)\")/gis

$html =~ m/(<script [^<]*?src=\"([^\"]+?\.js[^"]*?)\")/gis