What about something like this, assuming all of the lines will follow the same pattern. Given file lines such as:

<A HREF="blah('aa','b','0','Project','112)">
Some Label Without Any Digits
[download]

Do:

open(F,"file.html");
@array = <F>;
close (F);
foreach (@array) {
    if (/\d/) {
        my ($s1,$s2,$s3,$s4,$needednumber) = split(/,/);
        $needednumber =~ s/[^\d]//g;
        print $needednumber . "\n";
    }
}
[download]