my $s =~ tr/abcd/ABCD/;

##</code><code>##

my $replace = 'ABCD';
my $s =~ tr/abcd/$replace/;