while ( <SFILE> ) {
  chomp
 my @words = split /(?=\\)/;
    for my $word ( @words ) {
        $word = $words{ $word } if exists $words{ $word };
        }
    print TFILE "@words\n<br>";
}

##</code><code>##

my %words;
while (<DFILE>) {
    chomp;    
    my ($key, $val) = split /:/;
    $words{$key} = $val;
};