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";
		}
     }