Perl Skript tut nicht wie es soll

[pörl]

Hallo ich habe hier ein Perl-Skript, dass eigentlich aus einer HTML-Datei die URLs nach den Zeichenfolgen "<span class=a>" bis zum nächste Slash in eine Datei schreiben soll.
Das tut das Skript auch aber leider nur mit der ersten URL. Wo ist der Fehler??

#!C:\Perl\bin\perl.exe

open(IN,"$ARGV[0]") || die "Can not open file!";
open(OUT,">>datei.txt");

$counter = -1;

while(<IN>) {

$buf = $_;

$indx = index($buf,"<span class=a>");

if($indx != -1) {

$indx = $indx + 14;
    $result = substr($buf,$indx);

$indx = index($result,"/");
    $result = substr($result,0,$indx);

$bool = "no";

foreach $i (@buffa) {

if($i eq $result) { $bool = "found" };

}

if($bool eq "no") {

$counter++;
     $buffa[$counter] = $result;
     print "$result\n";
     print OUT "$result\n";
    }

}

}

close IN;
close OUT;