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