#2345678901234567890123456789012345678901234567
warn+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..100

##</code><code>##

                #2345678901234567890123456789012345678901234
perl -M5.01 -e 'say+(Fizz)[$_%3].(Buzz)[$_%5]||$_,for 1..100'