Select Code to Download

my $pchr = "KQRBNP";
my $w1 = "QRKPNBNBQRK";
...
}

print "$w1 -> $w2\n"

my $pchr = "KQRBNP";
my $w1 = "QRKPNBNBQRK";
...
$w1 =~ m/^(?:$re)(?<=(.))(?{ $w2 .= $1 })(*FAIL)/;

print "$w1 -> $w2\n"