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