Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $w1   = 'QRKPNBQ';  # <- Q is repeated!
my $w2 = join "", map $_ x (() = $w1 =~ /$_/g), @pchr;
say "$w1 \-> $w2";