for(1..100){$_%15==0?print"FizzBuzz":$_%5==0?print"Buzz":$_%3==0?print"Fizz":print} Is my best perl golf so far... wrote this one eons ago. The site doesn't seem to work well however and it won't let me submit it. Would obviously be shorter with "say" instead of "print."
say (1..100).map({ $_ %% (3|5) ?? ("Fizz" if $_ %% 3) ~ ("Buzz" if $_ %% 5) !! $_ }).join("\n") is my quick stab at a Perl 6 version. About the same length if I take out the spaces (which I'd rather not!).
I like the bit
$_ %% (3|5)
A pretty nifty way to condense multiple values into a single test.I don't always perl, but when I do sometimes I like to golf because it's fun.