FizzBuzz

$ perl -le'print(($_%3?"":"Fizz").($_%5?"":"Buzz")||$_)for 1..100' # 64bytes

あんまり短くならないなあ。

$ perl -le'print((("."x$_)=~/^(.{3})*$/&&"Fizz").(("."x$_)=~/^(.{5})*$/&&"Buzz")||$_)for 1..100'

 $ seq 100 | perl -pe's{^(?:([147]5|[369]0)|([2346789][05]|1(?:0?0|5)|5[05]?)|([369][0369]?|[147][258]|[258][147]))$}{$2?"Buzz":$3?"Fizz":"FizzBuzz"}ex'

正規表現を使ったもの2種類。
100までの(3,5,15)の倍数にマッチする正規表現はid:fbisさんの記事を参考にしました。