If you're going to better him on his code, you might just as well do it the proper way. Eh... the shorter way. :)

$a =~ s#([A-Z]{4,})#\u\L$1#g;
[download]