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