Select Code to Download

my %captures;
my $pat =
...
         split //, $template;

my $re = qr/^$pat\z/s;

my $template = "abcdefa";

^
(.)
...
(?!\1|\2|\3|\4|\5)(.)
\1
\z