What if there is an acronym in the input?

Depends on the context, if the input only consists of an Acronym, then it will be lowercased. However if there is a least 1 non capitailzed character in the input, the input string will stay the same. Please view the examples in the Description.

sub capsAcronym {
my $myString = $_[0];
if ($myString !~ /[a-z]/) {
$myString = lc $myString;
$myString =~ s/(.)/eval uc $1/e;
$myString =~ s/ (\w)/' '.eval uc $1/eg;
}
return $myString;
}