Some Label Without Any Digits ##

##

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