echo fooooobar | perl -pe 's/fo{2,}ba\Kr/z/'