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

my ($sname,$result);

#my $cmd ="results.bat";
my @lines = <DATA>;
#print "@lines\n";
#chomp (@lines);
        foreach my $line(@lines){
      #  chomp ($line);
                if ($line =~ m/Student\sName\s+=\s(.*)/i){
       #         chomp ($1);
                $sname =$1;
                print "$sname ";  #changed
                }
                if ($line =~ m/Exam\sStatus\s+=\s(.*)/i){
      #          chomp ($1);
                $result =$1;
                print "$result "; #changed
                }
     } 
print "\n";
=Prints:
Harry  PASSED  Mike  PASSED  Tom  PASSED  
=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 
 ------------------------------------- 
 
##</code><code>##

#!/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