my %sentence_codes = map { /(.*)_(.*)/ && ($1,$2) } split $codefile;

##</code><code>##

$sentence_file =~ s/(\w['-]\w?)|[?:;]/$&.'_'.($sentence_codes{$&} || 'unknown')/eg;