in reply to Re^4: Multiline Regex replacement in Multiline file
in thread Multiline Regex replacement in Multiline file

You can create a pattern that matches all the keys, and then replace: 
my $pattern = join '|', map quotemeta, keys %dic;
$line =~ s/($pattern)/$dic{$1}/g;

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom