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