$ perl -le 'for (1..100) {print("FizzBuzz"), next if not $_%15; \ print("Buzz"), next if not $_%5; print("Fizz"), next if not $_%3; print}';