$i=1;
$filename="zwischen1";
while(-e $f)
{
        $i++;
        $filename="zwischen".$i;
}



$ul='http://gelbeseiten.de/yp/quickSearch.yp;jsessionid=09014EEFA1C8FFC6F08EBBC46885232C.gelb06TomcatNode2?at=yp&subject=';
$ur='&location=&execute=Suchen';

while(<>)
{
        chomp;
        $term=$ZZZ;
        $u=$ul.$term.$ur;
        @urls=($u);
        for(@urls)
        {
                $t=getweb($ZZZ);
                if ($t=~/Es wurden mehr als /i)
                {
                        $u=$ul.$term.'&location=m%FCnchen&execute=Suchen';
                        print "ZUVIELE TREFFER\n";              
                        $t=getweb($u);
                }


                $t=~s/\n//g;

        $t=~s/#####/ergebnislisteZZZtitleTradeAction/g;
$t=~s/\<\/?b\>//g;

if ($t=~/href=\"([^\"]+)\" class=\"underline\"\>&gt;\<\/a\>/)
{
        $newZZZurl='http://jkv.gelbeseiten-regional.de'.$1;
        print "NEUE SEITE\n";
        push(@urls,$newZZZurl);
}

while($t=~/static\/imgs\/global\/pfeilZZZweiss\.gif\" width=\"7\" height=\"10\" alt=\"\" border=\"0\"\/\>([^\<]+)\<\/a\>(.+?)ergebnislisteZZZtitleTradeAction/g)
{
        $b=$1;
        $bl=$2;
        print "$b\n";
        while($bl=~/padding-top:5px;\" class=\"ausgabe\"\>\s*([^\<]+)/g)
        {
                $kw=$1;
                $kw=~s/\.\.\.//g;
                $kw=~s/^\s+//;
                $kw=~s/\s+$//;
                $kw=~s/\s+/ /g;
                $kw=~s/ - /#/g;
                
                print "\t$kw\n";
        }
}       
}
}
sub getweb
{
        my $url=shift;

        
        undef($/);
        sleep(rand(7));
        system("wget -U=\"User Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705)\" -O $filename -q \"$url\"");
        open(D,"$filename");
        my $t=<D>;
        $/="\n";
        close(D);
        system("rm $filename");
        return($t);
}