Select Code to Download

my $iter = combinations( $k => \@vertices );

...
    }
    print "@subset is a $k-clique\n";
}

        if ($string =~ /$regex/x) {
            print join(" ", map $$_, 1..$k), "\n";
        }

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

5 6 9
2 3 4
1 3 4
1 2 4
1 2 3