$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";