Select Code to Download

my $pchr = "KQRBNP";
my $w1 = "QRKPNBNBQRK";
...
eval "\$w2 =~ y/\Q$ascii\E/\Q$pchr\E/";

print "$w1 --[$pchr]--> $w2\n"

sub mk_sort {
    my $pchr = shift;
...
my $w2 = $sort->($w1);

print "$w1 --> $w2\n"