Select Code to Download

FILE1
peter  1234
...
peter  5643
nick   1111
julia  3456

peter  WRONG   1234
nick   OK      1111
...
george OK      2222
antony WRONG   5632
migel  WRONG   1209

open ONE, $FILE1;
while (<ONE>)
...
            
    }
}