DB<72> (" "x10) =~ m/ (?{print $x++})/g
 => (" ", " ", " ", " ", " ", " ", " ", " ", " ", " ")
0123456789