\tl:&#xa12
\tr:&#xa13
\ca:&#xa15
\ra:&#xa16
\ka:&#xa17
...

##</code><code>##

\tl\ca\ra\tr\ka ...

##</code><code>##

&#xa12&#xa15&#xa16&#xa13&#xa17

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $dfile = 'data';
my $sfile = 'source.txt';
my $tfile = 'target.txt';
open (DFILE,$dfile) or die "can not open";
open (SFILE,$sfile) or die "can not open";
open (TFILE,"> $tfile") or die "can not open";

my %words;
while (<DFILE>) {
        chomp;
        my ($key, $val) = split /:/;
        $words{$key} .= exists $words{$key} ? "$val" : $val;
};
while (my $s = <SFILE>) {
chomp($s);
my @words = split / /, $s;
foreach my $val (@words) {
  }
   for my $i (0 .. $#words) {
     $words[$i] = $words{$words[$i]} if (exists($words{$words[$i]}))
        }
   print TFILE join(' ', @words),$/;
   print TFILE "<br>";
}


close(SFILE);
close(DFILE);
close(TFILE);




##</code><code>##

\ca \ra \ka \tl

##</code><code>##

\ca\ra\ka\tl