while ($string =~ /((\S)+)/g) {...do something...}