1 while s/(?<=\+)([0-9]+)[$bases]/$1 - 1/eg;