Select Code to Download

# 61
print substr FizzBuzz.$_,$_%3?$_%5?8:4:0,$_%15?4:8 for 1..100

# 58
print+($_,Fizz,Buzz,FizzBuzz)[!($_%3)+!($_%5)*2]for 1..100