$newfile =~ s/\b([A-Z]{2,})\b/\\emph{lc($1)}/ge;

##</code><code>##

$newfile =~ s/\b([A-Z]{2,})\b/\\emph{\L$1\E}/g;