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