Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    
    print "$char=", join (',', @$_), "\n" for @{$matches{$char}};
}

Select or download this
```
b=0,0
b=1,2
...
r=2,0
t=1,5
t=2,5
```