Select Code to Download

my %replace = (
 "<CL>r<ij><it><ij>a<hn>" => "Christian",
 ...
);
$text =~ s/\b(\w+)\b/exists($replace{$1}) ? $replace{$1} : $1/ge;