perl -Mstrict -wle '
my $str = "HALLO";  

$str =~ s{\b(\w+)\b}{ucfirst(lc($1))}eg;
print $str
'
Hallo