Select Code to Download

use strict;
use warnings;
...
print <<"END" for 1..100;
@{[$_%3?():"Fizz",$_%5?():"Buzz",$_%5&&$_%3?$_:()]}
END

use strict;
use warnings;
...
print <<"END" for 1..100;
@{[  ($_ % 2) ? 'Odd' : 'Even'  ]}
END