sub is_ci {
    my ($pat) = @_;
    my ($pos_mods) = $pat =~ /^\(\?(\w*)(?:-\w*)?:.*\)/s
        or return 0;
    return $pos_mods =~ /i/;
}