un piccolo aiuto per search engine in perl

[Lino80]

my $query="www.google.com/search?hl=en&ie=UTF-8&q=";
$query.=$str[(rand(scalar(@str)))];
$query.="&num=$n&start=$s";
my @lst=(); 
    my $page = http_query($query);
    while ($page =~  m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
    push (@lst,$1);
}
    }
    return (@lst);
}

salve, così com è e con queste veriabili non mi cerca nulla...
se lo modifico così:

my $query="www.google.com/search?hl=en&ie=UTF-8&q=".str_replace("%20","+",urlencode($querystring[$A])).$a;
$query.=$str_replace[(rand(scalar(@str)))];
$query.="&filter=0&num=100&meta=$n&start=$s";
my @lst=(); 
    my $page = http_query($query);
    while ($page =~  m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
    push (@lst,$1);
}
    }
    return (@lst);
}

dite che può andare? l unica cosa che non penso vada bene è l uso di queste variabili che poi non trova... : ($querystring[$A])).$a

chi mi da una mano a capire perchè non cerca nulla?

grazie

[Lino80]

up..........