perl -MCGI -pi -e 'END{print&CGI::header,$t}s/\d+/$t=$&+1/e' c

##</code><code>##

perl -MCGI -pi -e'END{print&CGI::header,$t}$t=++$_' c