$s =~ s/(sneak)/ ++$i == $n ? $repl : $1 /eg;

es gibt da kein geteilt durch.

das ist eine substitution:
s/ ... / ... /eg;

das /eg steht für: e wie eval, und g wie globally.
eval bedeutet hier, dass die rechte seite der substitution als ersetzungscode angesehen wird, nicht nur als string.
d.h. der code ++$i == $n ? $repl : $1 wird bei jeder ersetzung ausgeführt.

das mit dem fragezeichen ist eine verkürzung von if/else:
++$i == $n ? $repl : $1
gleich
if (++$i == $n) { $repl } else { $1 }

lies mal perlop