#!/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 ;
[download]

Typical output:
BARESIS, BASS, BIOCHEMISTS, BLOCKS, BUMS, Bosch, Buff, CHANNEL, CHAT, DSL, Droga, Elfie, GUITARS, Human Head, Internet, NATION, Notepad, Oses, PEPSI, PHASE PROBLEM, Phone, RAILBAIT, SEXY BARBS, STUPIDNESS, Simpsons, YOLGs, absolutepower, bats, blocks, blue butts, buff, buffs, christmas presents, face, family, fantasy, forums, government, issues, letters, lewtz, link, magic, money, moo, pant, plots, posts, registration data, server, sex toy, sticks, topics, true shot damage

(I was going to sort them by frequency but Google doesn't give a big enough sample)

andy.