seq 100|perl -ne'$_%5?$_%3?print:say"Fizz":$_%3?say"Buzz":say"FizzBuzz"'
Best I could do on lunch. You have to use perl 5.10 to get the 'say' to work; it works the same with 'print"foo\n"' it's just longer.
perl-5.10.1-131.el6_4.x86_64 already installed and latest version
[root@fwireport01 reports]# seq 100|perl -ne'$_%5?$_%3?print:say"Fizz":$_%3?say"Buzz":say"FizzBuzz"'
String found where operator expected at -e line 1, near "say"Fizz""
String found where operator expected at -e line 1, near "say"Buzz""
String found where operator expected at -e line 1, near "say"FizzBuzz""
syntax error at -e line 1, near "say"Fizz""
Execution of -e aborted due to compilation errors.
seq 100|perl -ne'if ($_%3==0){print( "Fizz")};if ($_%5==0){print( "Buzz")};if(($_%3 ne 0)and($_%5 ne 0)){print($_)};print("\n");'
zahc is still cooler than me.