$var =~ s/[a-z]//g; print $var;