#!perl -p
y/+*/*+/;0while s/\d+\D\d+/$&/ee