Select Code to Download

#!perl -l
print !( $_ % 15) ? "FizzBuzz"
    : !( $_ % 5 ) ? "Buzz"
    : !( $_ % 3 ) ? "Fizz"
    : $_
    for 1 .. 100;