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