Perl 5 shortest fizzbuzz

[ogdenpm]

Sometime ago I wrote a perl 5 fizzbuzz. In revisiting the challenge have been able to reduce the program size to 51 bytes
warn"Fizz"x!($%3)."Buzz"x!($%5)||$_,$/for 1..100;
Note unlike perl 6, "say" cannot be used to save an extra byte as it is not inbuilt.

The code is also in the attached .txt file
fp51.txt