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