#!perl -p
s/[1-9]/10-$&/eg