Select Code to Download

#! perl -slw
use strict;
...
    print "$-[1] : $1"
        while $s =~ m[(?:.{$N})*(?=($key\G..))]g;
}