'okoK'=~ /(o|k)(k|i)(O|K)(K)/ [download]
In reply to Tell or determine whichever Perl regex group fails by Anonymous Monk