#!perl -p s/0*\K\d+/$&+1/ge