Just grab the non-spaces?

sub wordBreak {
   my ($string)   =  @_;
   return $string =~ /\S+/g;
}
[download]