my $pattern = join '|', map quotemeta, keys %dic;
$line =~ s/($pattern)/$dic{$1}/g;