$str =~ s///r =~ y///r =~ s///r =~ tr///r