if ( uc($str) eq uc($something) ) { 
  # ... 
}