# perl
$foo =~ s/\W//g;