Select Code to Download

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

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