$one = ""; $one =~ s/\W+/ /;