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