Select Code to Download

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