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