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