s/.../...$foo.../g;

##</code><code>##

s/.../$sentenceCount++; foo()/eg; 

##</code><code>##

$sentenceCount++ while /.../g;