$soc =~ s/(\W+)/ /; #Eliminate all non-word characters followed by space.