if ( lc $foo eq uc $foo ) { }