Select Code to Download

my %k;
$k{'A'} = 'Foo';
$k{'B'} = 'Bar';
$k{'C'} = 'Baz';

s/@k{qw(A B C)}/stuff/;

s/Foo Bar Baz/stuff/;

s/FooBarBaz/stuff;

print @k{qw(A B C)}, $/;

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