Hi, your code is almost perfect, you've just put a '/' at the end of your pattern :

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

will work

Arnaud