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