perl -e '$qr = "[A-Z]o[A-Z]"; print "[".("WoW" =~ $qr)."][".("wow" =~ $qr)."]\n";'
# prints [1][]