Select Code to Download

perl -E '
my @alpha = ( qw{ A C G T } ) x 5;
push @alpha, qw{ . . };
say join q{}, map { $alpha[ rand @alpha ] } 1 .. 50
   for 1 .. 50000;' > spw1202693.txt

use strict;
use warnings;
...

close $inFH
   or die qq{close: < $filename: $!\n};

ok 1 - ANDmask
ok 2 - brutish
...
unpackM 58.7/s   5194%   3321% 1979% 1914%  377%    68%    25%     22%
+      --    -44%
ANDmask  105/s   9407%   6045% 3634% 3517%  757%   201%   124%    118%
+     80%      --
1..10