Select Code to Download

split(/(?<=\S)(?=\s)/);

$s="AAA    B   X Y Z  W\n";
@a=split(/(?<=\S)(?=\s)/, $s);
print length($s),":$s";
print join(":",length(join("",@a)),scalar(@a),"\n");
print join("\n",@a),"\n";

20:AAA    B   X Y Z  W
20:7:
...
  W