perl -e '$str="fff123"; $fu = $str =~ tr/0-9//c; print $fu,"\n";'