(Note the lack of %).

#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}
for('001'x33|'00002'x20){warn+(pos,Fizz,Buzz,FizzBuzz)[$&],$/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
[download]

Update: Dropped 3 4 strokes above. Then 6 more. Then s/x33/x34/ to fix a bug where only 99 lines were printed by the 3rd version.