for my $matchkey (keys %dic)
{
   $line =~ s%$matchkey%$dic{$matchkey}%g;
}