Acme::Oppai
http://search.cpan.org/~yappo/Acme-Oppai-0.03/lib/Acme/Oppai.pm
なるモジュールが出ていたんで使ってみた。DOS窓出力用のつもりなので、UTF-8をデコードしている。
use Acme::Oppai; use Jcode; my $op = Acme::Oppai->new(default => 'default'); $str = $op->Oppai; $s = shift(@$str); my $j = Jcode->new($$s,'utf8'); print $j->h2z->sjis;
結果
_ ∩ ( ゜∀゜)彡 おっぱい!おっぱい! ( ⊂彡 | | し ⌒J
あほや・・・。