no subject

s#\+(\d)#$1#g, только первый вариант в ~2 раза быстрее:


# perl -MBenchmark=cmpthese -e \
  '$aa = shift; cmpthese($ARGV[0],
     { ''A'' => sub { my $bb = $aa; $bb =~ s#\+(?=\d)##g },
       ''B'' => sub { my $bb = $aa; $bb =~ s#\+(\d)#$1#g } } )' "+test + +12 +13 +14 +100 ++" 1024000
      Rate    B    A
B 195420/s   -- -50%
A 393846/s 102%   --
#