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