Select Code to Download

no warnings 'misc';             # "Replacement list is longer..."
my $tpl = 'abccbccbddb';
...
        ? 'yes'
        : 'no'
}

1 0 0 0 0 1 0
0 1 0 0 1 0 1
...
0 1 0 0 1 0 1
1 0 0 0 0 1 0
0 1 0 0 1 0 1

use strict;
use warnings;
...
1.04205107688904
["kaitaka", "lauhala", "metreme", "neocene", "tempete"]

   i.~ 'Mississippi'
0 1 2 2 1 2 2 1 8 8 1
   (i.~~.) 'Mississippi'
0 1 2 2 1 2 2 1 3 3 1

   # words =: 'b' freads 'path_to/354984si.ngl'
354984
...
+-------+-------+-------+-------+-------+
   25 (6!:2) 'pattern find words'
0.0499341