Select Code to Download

while (my $line = <INFILE>) {
    $line =~ s/(\S+)/$dict{$1} || $1/eg;
    print $line;
}

    $line =~ s/(\S+)/defined $dict{$1} ? $dict{$1} : $1/eg;

    $line =~ s|(\S+)|$dict{$1} // $1|eg;