$old =~ s/[^\w]//g; #or possibly throw a warning