sub deScreamer{

        $str=shift;

        if($str!~m/[a-z]/){
           $str=lc($str);     
           $str=~s/\b(\w)/uc($1)/eg; 
        }

        return str;
}