Select Code to Download

([cross-referencereferencecross]{5,15})

while (my $line = <INFILE>) {
    chomp($line);
    print $dict{$line} || $line, "\n";
}