FizzBuzz by perl

for(my $i=1;$i<101;++$i){
    print $i%3 && $i%5 ? $i : ($i%3 ? "" : "Fizz", $i%5 ? "" : "Buzz"), "\n";
}

foreach((1...100)){
    print $_%3 && $_%5 ? $_ : ($_%3 ? "" : "Fizz", $_%5 ? "" : "Buzz"), "\n";
}

print map{ $_%3 && $_%5 ? $_ : ($_%3 ? "" : "Fizz", $_%5 ? "" : "Buzz"), "\n" }(1...100);

久しぶりに書いたコードこれかよ('A`)