#!perl -p
$_=reverse s/./$&.($&<-49+ord$'&&$&+1)/regwhile++$i%99