ズンドコキヨシ with perl

perlで作ってみます。

• こんなんでいいんでしょうか？
• forの中だけで作ってみました〜

zd.pl

use strict;
use warnings;
use utf8;
use Encode;

my @z = qw(ズン ドコ);
my $s;
for ( $s = ''; substr($s,-10) ne 'ズンズンズンズンドコ'; $s .= $z[int rand(@z)] ) {}
print encode('utf8',"$s キ・ヨ・シ！\n");

ちなみに...

• Macにはsayコマンドというのがあるので、

% perl zd.pl | say

• と、打つと面白いですよｗ