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