s/\G\+$1[$bases]{$1}// while /(?=\+([0-9]+))/g;