Select Code to Download

#! perl -slw
use strict;
...
my $re = '(.)(?=(' . '.'x($N-1) . '))';
print $1 . $2 while $seq =~ m[$re]g;

#! perl -slw
use strict;
...
}
print unpack $t1, $seq;