$line =~ s/([A-Z]{4,})/___$1___/g;
$line = lc($line);
$line =~ s/___([a-z]{4,})___/uc($1)/ge;