FizzBuzz

gistfile1.pl

print+(join'',("FizzBuzz"=~/./g)[$_**2%3*4..7-$_**4%5*4])||$_,$/for 1..100;

print+($_,'Fizz','Buzz','FizzBuzz')[!($_%3)|!($_%5)<<1].$/for 1..100;

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

print+($_%15?$_%5?$_%3?$_:'Fizz':'Buzz':'FizzBuzz').$/for 1..100;

print+('Fizz')[$_%3].('Buzz')[$_%5]||$_,$/for 1..100; #it may give warnings

print'Fizz'x!($_%3).'Buzz'x!($_%5)||$_,$/for 1..100;