Select Code to Download

my %res;
foreach my $word (@rw) {
...
    $re;
  }
}

my $re;
$re .= $translations{$_} for split //,$word;
$re;

join '', @translations{ split //, $word };