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

##</code><code>##

my ( $key, $val ) = /^(\d+)\s+(\w+)/;