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

##</code><code>##

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