$code =~ s/(\++)/"P+=".length($1).";" /eg;