$_ = "<Pooh,> said Rabbit kindly, <you haven't any brain>  <I know,> said Pooh humbly.";
$ys = () = m/<[^>]*y/g; # count number of y's within angled brackets (assume no nesting)
print "$ys\n";