$i++;  # Add 1 to $i

##</code><code>##

  ($copy = $orig) =~ s/PATTERN/REPLACEMENT/;