<>;s/(.*\D)?\K\d+/++($t=$&)/e,print for<>