Select Code to Download

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

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

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

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

        my @list = sort @pdflist;

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

#!/usr/bin/perl

...
}

__END__