#!perl -lp
s/\w[a-z]*\K\d*/ @{[$&||1]} /g;chop