$str =~ s/[+-](\d+)(??{".{$1}"})//g;