Help for this page

Select Code to Download

Select or download this
```
'okoK'=~ /^(o|k)(k|i)(O|K)(K)/
```

Select or download this

'okoK'=~ /
   ^
...
use List::Util qw( first );

my $n = first { defined($-[$_]) } 1..4;