>perl -ane '...' results.bat
Harry    PASSED
Mike    PASSED
Tom    PASSED