#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
sub fz {
my @pattern = @_;
}
my $fizz = fz("", "", "fizz");
my $buzz = fz("", "", "", "", "buzz");
foreach my $i (1..100) {
say ($fizz->($i) . $buzz->($i) || $i);
}
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKdXNlIGZlYXR1cmUgJ3NheSc7CgpzdWIgZnogewoJbXkgQHBhdHRlcm4gPSBAXzsKCXJldHVybiBzdWIgeyAkcGF0dGVyblsoc2hpZnQoKSAtIDEpICUgQHBhdHRlcm5dIH07Cn0KCm15ICRmaXp6ID0gZnooIiIsICIiLCAiZml6eiIpOwpteSAkYnV6eiA9IGZ6KCIiLCAiIiwgIiIsICIiLCAiYnV6eiIpOwoKZm9yZWFjaCBteSAkaSAoMS4uMTAwKSB7CglzYXkgKCRmaXp6LT4oJGkpIC4gJGJ1enotPigkaSkgfHwgJGkpOwp9Cg==