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

Harry  PASSED
Mike   PASSED
Tom    PASSED 

##</code><code>##

use strict;
use warnings;

my ($sname,$result);

my $cmd ="results.bat";
my @lines = `$cmd`;
#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 \n";
		}
		if ($line =~ m/Exam\sStatus\s+=\s(.*)/i){
		chomp ($1);
		$result =$1;
		print "$result \n";
		}
     }