$/=\1;map{$r=index$b,$_;print$r>-1&&$r<10?$r:$_;$b=$_.$b if/\w/}<>