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

##</code><code>##

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

##</code><code>##

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