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

##</code><code>##

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