Perl one-liner to increment a value

Question

I want to increment every number in quotes in a file, one per line:

perl -pe 's/\"(\d+)\"/ 1 + $1 /ge' file

This strips the quotes, but how do add the quotes back in to the output?

Answer 1

perl -pe 's/\"(\d+)\"/ q{"} . (1 + $1) . q{"} /ge'

Answer 2

You can use look-around assertions - http://perldoc.perl.org/perlre.html#Extended-Patterns.

So the regex becomes: s/(?<=")(\d+)(?=")/ $1 + 1 /ge

Answer 3

And the golf winner is:

perl -pe's/"(\d+)"/"@{[1+$1]}"/g'