my @cliques = ();
   
    $regex .= '(?{ push (@cliques, join(" ", map $$_, 1..$k)) })(?!)';
    $string =~ /$regex/x; 
   
   print join("\n", @cliques), "\n";