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

##</code><code>##

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