1 while s/pattern/length($`)/e;