if ($string =~ /[A-Z]+/){
        $string = lc $string;
}else{
        $string = uc $string;
}