$i=@a,s/./$a[$&^v24?--$i:$i++]|=$"x pos.$&/gefor<>;print@a,$,=$/