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