>perl -ane 'm/Student Name\s+=\s+(\w+)/ and $name=$1; m/Exam Status\s+=\s+(\w+)/ and print qq{$name\t$1\n}' results.bat
Harry	PASSED
Mike	PASSED
Tom	PASSED