Help for this page

Select Code to Download

Select or download this
```
$count = () = map /y/g, /<.*?>/g;
```

Select or download this

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