[Perl]Przeszukiwanie tekstu- regexp

[mrbox]

Z góry przepraszam za ten dział, ale nie znalazłem nic odpowiedniejszego do zadania pytania dotyczącego perla

Mój problem jest następujący- za pomocą perla potrzebuję przeczesać dane, które wyrażenie regularne może napotkać wiele razy. Chodzi o sprawdzanie i parsowanie wyników w google i nie mogę tego zrobić w php. Może mi ktoś podpowiedzieć, jak obejść ten perlowy mankament, gdzie wyrażenie

my $wyrazenie= '<h3 class=r><a href="([^\"]*)" class=l';
my $wynik =~ m/$wyrazenie/);

zawsze zwraca pierwsze możliwe wystąpienie wyrażenia? Myślałem tam nad jakąś pentelką, ale nie mam zielonego pojęcia jak ona ma wyglądać

//Edit: rozwiązane- wystarczy zrobić tak:

my $x = $res->decoded_content;
my $count=0
while ($x =~ m/$wyrazenie/cg){
$count++;
if($1 eq 'adres'){
print $count;
last;
}
}