Help for this page
my %res; foreach my $word (@rw) { ... $re; } }
my $re; $re .= $translations{$_} for split //,$word; $re;
join '', @translations{ split //, $word };