Select Code to Download

C:\>more newfizzbuzz.pl
#!/usr/bin/perl
...
                     $_ % 3 == 0? print "fizz\t":
                     $_ % 5 == 0?print "buzz\t":print "$_\t"
                     } @stuff;

C:\>perl newfizzbuzz.pl
1       2       fizz    4       buzz    fizz    7       8       fizz  
+  buzz    11      fizz    13  14  fizzbuzz        16      17      fiz
+z    19      buzz    fizz    22      23
...
buzz    46      47      fizz    49      buzz    fizz    52      53    
+  fizz    buzz    56      fizz    58      59      fizzbuzz        61 
+     62      fizz    64      buzz    fizz
        67      68      fizz    buzz    71      fizz    73      74    
+  fizzbuzz        76      77  fizz        79      buzz    fizz    82 
+     83      fizz    buzz    86      fizz
        88      89      fizzbuzz        91      92      fizz    94    
+  buzz    fizz    97      98  fizz        buzz