$query =~ s{
             \b(in|values?)\s*\(\s*([NS])\s*,[^\)]*\)
           }
           {$1($2+)}gx;