#!perl -p
s/\d+\D\d+/$&/ee&&redo