Select Code to Download

$ perl -E '
    my @x = qw{ABC DEF BXB};
...
DEF: NO
BXB: NO
BXB: NO

#!/usr/bin/env perl

...
    index => sub { $i == index($_, $c, $i) ? 1 : 0 for @x },
    substr => sub { $c eq substr($_, $i, 1) ? 1 : 0 for @x },
};

            Rate substr  index
substr 3981142/s     --   -46%
index  7383385/s    85%     --