my $str = "W il forum di html.it 02193 eheh!!";
$str =~ /(\d)/g;
print $#-;

provalo, perche` ho qualche dubbio.