my $line=join "", <F>;
foreach $k (keys %dic) { 
 $line =~ s/$k/$dic{$k}/gism;
}
print $line;