perl -e "my $t = \"ABC def 123*GHI;?. jk\"; $t =~ s/([^A-Z0-9 ])*//ig;
+ print $t;## don't accept any char. except... _______^"
[download]

ABC def 123GHI jk