#!/usr/bin/perl -w
use strict;

for my $num (1 .. 100) {
        my $mod3num = $num % 3;
        my $mod5num = $num % 5;
        my $result = "";

        if ( $mod3num == 0 ) {
                $result .= "fizz";
        }

        if ( $mod5num == 0 ) {
                $result .= "buzz";
        }

        if ( $result =~ /z/ ) {
                print "[$num] $result\n";
        } else {
                print "[$num] $num\n";
        }
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

for my $n (1 .. 100) {
        my $nm3 = $n % 3;
        my $nm5 = $n % 5;
        print((!$nm3 && !$nm5) ?
                "[$n] fizzbuzz\n"
                : (!$nm5?
                        "[$n] buzz\n"
                        : (!$nm3?
                                "[$n] fizz\n"
                                : "[$n] $n\n")))
}