$n = -11; print ++ $n =~ s/8/[8]/r, $" for 1 .. 19
Standard input is empty
-10 -9 -[8] -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 [8]
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!