print for split /_+/, $s;; The quick brown fox