$str=123;
$fu = length($str);
print $fu,"\n";

##</code><code>##

perl -e '$str="fff123"; $fu = ($str =~ tr/[a-z]//c); print $fu,"\n";'