Select Code to Download

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

sub fizzBuzz {
#23456789 123456789 123456789 123456789 123456789 
print(($_%3?"":Fizz).($_%5?"":Buzz)or$_)for 1..100
}

sub fizzBuzz {
#23456789 123456789 123456789 123456789 123456789 12
print+($_%3?"":Fizz).($_%5?"":Buzz)||$_,$/for 1..100
}