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