$n = -11; 
print ++ $n =~ s/8/[8]/r, $" for 1 .. 19