$ perl -E '
    my $str = "sssDDDsssDDDssUss";
    say $str;
    $str =~ y/DU/M/;
    say $str;
'
sssDDDsssDDDssUss
sssMMMsssMMMssMss