http://www.perlmonks.org?node_id=602946


in reply to Golf Challenge: FizzBuzz

Two more:

# 61 print substr FizzBuzz.$_,$_%3?$_%5?8:4:0,$_%15?4:8 for 1..100
and
# 58 print+($_,Fizz,Buzz,FizzBuzz)[!($_%3)+!($_%5)*2]for 1..100

--Frank