$s = 'This is A mIxEd-Case STRING';;
$s =~ tr[A-Za-z][a-zA-Z];;

print $s;;
tHIS IS a MiXeD-cASE string