Help for this page

Select Code to Download

Select or download this
```
$/ = undef;
```
Select or download this
```
if (/$i/g)
```

Select or download this

my $regex = join '|', map quotemeta, @ids;
while (<FILE>) {
    $counts{$1}++ if /($regex)/;
}