$x = join('', @k{qw(A B C)});
s/$x/stuff/;