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