Select Code to Download

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

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