in reply to Re^8: Counting matches
in thread Counting matches

Adjust the @counts array to reflect the actually expected matches. From the output the test script delivers, you can tell ("got: ") it should be:

my @counts = (0, 1, 1, 0, 1, ...); # ... is a placeholder for any othe +r values
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'