$count = () = /$pat/g;