use List::Util 'sum';
$count = sum map { my $x = () = /y/g } /<.*?>/g;