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

##</code><code>##

eval qq|@{[print=>q<grep!y,\x61-\x7a,,,split''>]}|