contare i numeri in una frase

[shishii]

my $str = "W il forum di html.it 02193 eheh!!";
$str =~ s/\D//g;
print length($str);