$string =~ s/$_/$r{$_}/eg for keys %r;