http://www.perlmonks.org?node_id=602904


in reply to Golf Challenge: FizzBuzz

Not really a golf entry, because Perl Golf is hurting the Perl community, and I object to that, but here's my "brief" entry first attempt:
print "$_\n" for map { ($_ % 3 ? "": "Fizz").($_ % 5 ? "" : "Buzz") || + $_ } 1..100;