Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my $count = $merge =~ tr/\0//;

print $count;

Select or download this
```
4
```