$count = () = map /y/g, /<.*?>/g;