$str =~ s/[^\w\s]//;