Select Code to Download

for my $list (@lists) {
    print $list->{line};
    printGroups($list->{groups}, %group);
    print "\n";
}

sub uniq {
    my %seen;
...
    print $list->{line};
    print  "line 54: ACL line\n\n";
}