RosettaCodeData/Task/FizzBuzz/Perl/fizzbuzz-2.pl

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