or download this
#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345678 7
+ 2345
for('001'x33|'00002'x20){print[pos,Fizz,Buzz,FizzBuzz]->[$1],$/while/(
+.)/g}
...
map{warn+(FizzBuzz,Fizz,Buzz,pos)[$&],$/while/./g}331x34&33332x20
#2345678 1 2345678 2 2345678 3 2345678 4 2345678 5 2345678 6 2345