Select Code to Download

Plain words with multiple translations:
EXCEPT: NEH-DIH, NA-WOL-NE
HIGH: WO-TAH, EXPLOSIVE
...
TAH-BAHN: BEACH, SHORE
WHO-NEH: REPORT, REVEAL
WO-CHI: FLARE, ILLUMINATE

my @words = split /\s+/, $str;
foreach my $word (@words) {
    $word = $CDICT{$word}, next if exists $CDICT{$word};
...
    $word = join ' ' => @letters;
}
return join '  ' => @words;