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

##</code><code>##

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