Select Code to Download

# Get a hash of your translations, for quick lookup
%pair_lookup = map { chomp; split(/=/, $_, 2); } <SUBLIST>;
...
                   ? $pair_lookup{$_} : $_; } 
                   split (/ /, $name, 2) );
}