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