Select Code to Download

open (PROTECTED, "$protected");
@protected = <PROTECTED>;
...
if (grep($_ eq $user[0], @protected)){
    sock("PRIVMSG $tag:$user[0] Is A Protected User!");
}

my $count = 0;
for(@protected){
...
}

print("$user[0] was found at ".$count+1." in the list.\n");