Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl
use warnings;
...
my $cnt = 0;
for (@chars) { $cnt++ if ($_ eq $de) }
print "delim is $de count is $cnt\n";

Select or download this
```
delim is | count is 6
```