Select Code to Download

$a =~    s{\b([A-Z]{4,})\b}{ucfirst(lc($1))}eg;
                         ^^^ slash removed

$a =~    s#([A-Z])([A-Z]{3,})#$1\L$2\E#g;