my $PCHR="KQRBNP";
my $w1="QRKPNB";
my $w2=join "", $PCHR=~/@{[join "|",split "",$w1]}/g;
print "$w1 -> $w2\n";