if (exists $flags{-keep})
    { $pat =~ s/\Q(?k:/(/g; }
else
    { $pat =~ s/\Q(?k:/(?:/g; }