http://qs321.pair.com?node_id=338451


in reply to leaving only [a-zA-Z0-9]

you can also use $a =~ s/\W//g;

If you use locales; it supports special chars too.