Select Code to Download

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

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