Help for this page

Select Code to Download

Select or download this
```
$count{$_}++ for $string =~ /../g;
```

Select or download this

while( @strings ) {
    my( $x, $y )= splice @strings, 0, 2;
...
    }
    print join " ", %count, $/;
}