#!/usr/bin/perl
use strict;
use warnings;

while (my $line = <DATA>)
{
   print "$1 " if $line =~ m/Student Name\s*=\s*(.*?)\s*$/; #deletes trailing spaces
   print "$1 " if $line =~ m/Exam Status\s*=\s*(.*?)\s*$/;  #deletes trailing spaces
}
print "\n";

=Prints:
Harry PASSED Mike PASSED Tom PASSED Bob Smith FAILED 
=cut

__DATA__
 Student Name = Harry    
 Student Code = student_id_1
 Exam Status = PASSED
 ------------------------------------- 
 Student Name = Mike
 Student Code = student_id_2
 Exam Status = PASSED
 ------------------------------------- 
 Student Name = Tom
 Student Code = student_id_3
 Exam Status = PASSED
 ------------------------------------- 
 Student Name = Bob Smith   
 Student Code = student_id_4
 Exam Status=FAILED