Select Code to Download

while(<PERMSFILE>) {
    next if /Everyone\s+R X/;
...
    next if /\s+o\s+/;
    print SHORTPERMS;
}

while(<PERMSFILE>) {
    if( $_ !~ /Everyone\s+R X/ &&
...
            print SHORTPERMS $_;
    }
}