if ($var =~ /^cheese$/i) {
  # got it
}