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

make that   s/[\W_]//g;   to take away the   _   too.

And careful with   locale!   That will not get rid of Umlauts and word characters with accents and such. It will still get rid of special characters though.

Sören