#usage googlestrip file:///C:/googlesearchresult.htm > urllist.txt

##</code><code>##

my $fileget = getstore($url,"tempfile.html");

##</code><code>##

    my $suffix = substr($element,$offset,$filetypelen);

      if ($suffix =~ m/$filetype/)  {
        push @pdflist, $element;       

##</code><code>##

        my @list = sort @pdflist;

##</code><code>##

        for my $url (@list) {
            next if ($url =~ m/\/s.*pdf/);
        print $url;
               print "\n";
                }
##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use LWP::Simple;
use HTML::SimpleLinkExtor;

die "Usage: $0 URL <extension> [<extenstions>]\n" unless @ARGV >= 2;

my $url=shift;
my $wanted=join '|', map quotemeta, @ARGV;
$wanted=qr/\.(?:$wanted)$/;

defined(my $html=get $url) or die "Couldn't get <$url>\n";

{
    local $,="\n";
    print sort grep /$wanted/,
      HTML::SimpleLinkExtor->new->parse($html)->a;
}

__END__