偶然見つけたものを少しGolf。

原文: 
perl -e 'use encoding qw(utf8);@h = map {chr($_)} (0x3041 .. 0x3094); print join(" ", map {join("", map {$h[rand(@h)]} (1 .. $_))} (5, 7, 5, 7, 7)), "\n";'
Golfed by dankogai 
perl -le 'binmode STDOUT,":utf8"; print join " ", map {join "", map {chr(0x3041+rand(83))} (1..$_)} (5,7,5,7,7)'

とりあえず5首ほど読ませてみた。

  • ぷろかつも ふぜてぶぼせゐ まねぞびど ぃにゎちやなそ ぅずごぃぶむれ
  • なぱぱぅぜ じてぬゃくゃほ ぬへかきづ りゃぇなにだた ぞがぅずぬぅり
  • ゎつくつも るらにげへぷに うわだひた れらいえじふは せむれせめっひ
  • けぶせすへ にじゐひぱごっ ぎにざむぼ なあてべょぽょ ぴてろちてじご
  • いでぱねよ ぢっげぢぷゎと やちゆろぎ のよぞばぢぴぽ びほああわごゅ

Dan the Hanamogelizer