seq 1 30 \
| perl -ple '$_.=" "' \
| perl -aple '$_.="Fizz" unless $F[0] % 3' \
| perl -aple '$_.="Buzz" unless $F[0] % 5' \
| perl -anle 'print +@F < 2 ? $F[0] : $F[1]'