my $count = s/(?=$pat)//gsi;