perl6中字符串字母编历

use v6;
my $input = prompt '输入字符串:';

for $input.words -> $word {
  say $word;
}
for $input.comb -> $char {
  say $char;
}
#一个是词分隔， 一个是字母分隔