$code =~ s/\+/P++; /g;

##</code><code>##

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

##</code><code>##

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