#!/usr/local/bin/perl
print $_ % 15
  ? $_ % 5
      ? $_ % 3
          ? $_
          : 'Fizz'
      : "Buzz"
  : q{FizzBuzz}, "\n"
  for ( 1 .. 30 );