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