#!perl -pl
s/.(?=(.))/$&.join"",$&<$1?$&+1..$1-1:reverse$1+1..$&-1/eg