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