Buying 15$ for whoever can fix this simple PERL scraping script

I have a PERL script that needs some minor changes to scrape .us domains from
http://newlydomains.com/domain-2011-08-03-us-1.html

currently it doesn't work because there is something wrong with it.
15$ for whoever can fix it.

#!/usr/bin/perl
use strict;
use LWP::Simple;

# Change the name of the output file
my $filename = "domainlist.txt";
# Change the name of the URL to fetch
my @urls = ( "http://newlydomains.com/domain-2011-08-03-us-1.html"



 );
# Change this to 0 if you want files to be overwritten
my $overwrite = 1;
print "Content-type: text/html\n\n";

  if($overwrite eq 1)
    {
    if(-e $filename)
      {
      $filename= $filename.'.'.time;
      }
    }

open (OUTFILE, ">", $filename) or die ("Cannot open file ".$filename."\n");

foreach my $url (@urls)
  {
  my $page = get($url);
  my(@results) = (join '\n', $page) =~  m|"top">(.+?)\.us</td>|gi;
  if(scalar(@results) gt 0)
    {
    foreach my $result(@results)
      {
      print OUTFILE "$result.us\n";
      }
    }
  else
    {
    print "No \".us\" domains found at $url\n";
    }
  }
  close OUTFILE;
  print "Results saved to <a href=\"$filename\">$filename</a>\n";  

PHP:

 

Hi there,

What happens when it is run?

 

it should create a text file called domainslist.txt which contains all the .us domains on that page.

but it just creates an empty domainslist.txt file.

this part isn't correct: my(@results) = (join '\n', $page) =~ m|"top">(.+?)\.us</td>|gi;

Greetz

Smetten

 

try this ...http://www.minijobz.com/cgi-bin/test.cgi

 

No need for it anymore, someone did it already.

Thx anyway