$$text=~s/$_/$uris{$_}/g for(keys(%uris));