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

##</code><code>##

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