my @chunks = split /(\s+)/, $str;