s$<.r.gs(/\d/){[*"1"..$&].rv}