$text =~ s/\s+/ /m; #yes?