# A "cheating" way to write FizzBuzz in one line.
# This is preparation.
use MIME::Base64;
@b=();
for(my $i = 0; $i < 25; $i++) {
     @b[$i] = 0;
     my $x = 0;
     map {
          $r = 0;
          if($_ % 5 == 0) {
               $r = 2;
          }
          if($_ % 3 == 0) {
               $r |= 1;
          }
          @b[$i] |= $r << $x++ * 2;
          print "$_ = " . ($_,'Buzz','Fizz','FizzBuzz')[$r] . "\n";
     } ($i * 4 + 1, $i * 4 + 2, $i * 4 + 3, $i * 4 + 4);
}
print encode_base64(join('',(map chr, @b)));

1 = 1
2 = 2
3 = Buzz
4 = 4
5 = Fizz
6 = Buzz
7 = 7
8 = 8
9 = Buzz
10 = Fizz
11 = 11
12 = Buzz
13 = 13
14 = 14
15 = FizzBuzz
16 = 16
17 = 17
18 = Buzz
19 = 19
20 = Fizz
21 = Buzz
22 = 22
23 = 23
24 = Buzz
25 = Fizz
26 = 26
27 = Buzz
28 = 28
29 = 29
30 = FizzBuzz
31 = 31
32 = 32
33 = Buzz
34 = 34
35 = Fizz
36 = Buzz
37 = 37
38 = 38
39 = Buzz
40 = Fizz
41 = 41
42 = Buzz
43 = 43
44 = 44
45 = FizzBuzz
46 = 46
47 = 47
48 = Buzz
49 = 49
50 = Fizz
51 = Buzz
52 = 52
53 = 53
54 = Buzz
55 = Fizz
56 = 56
57 = Buzz
58 = 58
59 = 59
60 = FizzBuzz
61 = 61
62 = 62
63 = Buzz
64 = 64
65 = Fizz
66 = Buzz
67 = 67
68 = 68
69 = Buzz
70 = Fizz
71 = 71
72 = Buzz
73 = 73
74 = 74
75 = FizzBuzz
76 = 76
77 = 77
78 = Buzz
79 = 79
80 = Fizz
81 = Buzz
82 = 82
83 = 83
84 = Buzz
85 = Fizz
86 = 86
87 = Buzz
88 = 88
89 = 89
90 = FizzBuzz
91 = 91
92 = 92
93 = Buzz
94 = 94
95 = Fizz
96 = Buzz
97 = 97
98 = 98
99 = Buzz
100 = Fizz
EAZJMIRBEgxhkARDGCTBEAZJMIRBEgxhkA==