#!/usr/bin/perl -w

#this is fairly silly

use strict;
use LWP::Simple;

my $page = '';
my $url = 'http://www.google.com/search?q=%2B%22all+your%22+%2B%22are+belong+to+us%22+-base+-bases&num=100&hl=en&lr=&safe=off&start=' ;

for (my $i=0; $i<=900; $i+=100) {
        $page .= get( $url.$i ) ;
}

$page =~ s/<[^>]*?>//gs ;
$page =~ s/&[^;]*?;//gs ;

my (@nouns) = ($page =~ /all your(.{3,20}?)are belong to us/gsi );

my %unique;
foreach (@nouns) {
        s/^\s*//s ;
        s/\s*$//s ;
        tr/\n//d ;
        $unique{$_}++;
}

print join ', ', sort keys %unique ;