世界のナベアツを Perl で

via日本野望の会−Yabooo.org
「FizzBuzzはもう古い！世界のナベアツ問題。

ネタ記事ですが、いろいろな実装が見たいので。

ここはやはり Perl で。

print $_, ( /3/ or $_%3==0 )?'〜〜〜':'', ($_%8)?'':'ぅぅういえぇえあ', "\n" for 1 .. 40;

こんなコードばかり書くやつは、dis られ。。。ることすらない