use MIME::Base64;print map{map{(++$i,'Fizz','Buzz','FizzBuzz')[$_]."\n"}(3&(ord),3&(ord>>2),3&(ord>>4),3&(ord>>6))}split//,decode_base64"EAZJMIRBEgxhkARDGCTBEAZJMIRBEgxhkA"