Was hälst du davon, dir nen Bot zu schreiben, der Webseiten nach Wörtern durchsucht? Lass ihn ein Startwort in Google eingeben, nimm die ersten 100 Treffer, Liste sie auf, nimm ein Wort aus der Liste such weiter usw...
Dabei solltest du natürlich die Webseiten cachen, damit du keine mehrmals aufrufst, zudem solltest du irgendwie verifizieren, ob das deutsche Webseiten sind.
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}