Karpov Shirov 3.5-1.5
Shirov Anand 2.0-3.0
Anand Kasparov 1.0-4.0
Kasparov karpov 2.0-2.0
BlueJunior Kasparov 3.0-3.0

##</code><code>##

Note : A player gets 1 point for each win, 0 points for a loss, and 0.5 points for a draw.
***********************************************
THIS FOLLOWING IS THE CODE THAT I HAVE WRITTEN.
   UW PICO(tm) 4.0                  File: red.pl

$in_file = shift@ARGV;
open(PLAYERS, "<$in_file") || die "Cannot open the input file!";

$p1wins = 0; $p1loss = 0;
$p2wins = 0; $p2loss = 0;
$p1draw = 0; $p2draw = 0;
$wins = 0; $loss = 0; $draw = 0;

while(<PLAYERS>)
{
 if (/(\w+)\s+(\w+)\s+(\d\.\d)\-(\d\.\d)/)
 {
  if($3 > $4)
  {
   $p1wins = $p1wins + 1;
   $p2loss = $p2loss + 1;
   $player{$1} = [$1, $p1wins, $p1loss, $p1draw];
   $player{$2} = [$2, $p2wins, $p2loss, $p2draw];
  }
                                                                  }
  elsif($3 < $4)
  {
   $p1loss = $p1loss + 1;
   $p2wins = $p2wins + 1;
   $player{$1} = [$1, $p1wins, $p1loss, $p1draw];
   $player{$2} = [$2, $p2wins, $p2loss, $p2draw];
  }
  else
  {
   $p1draw = $p1draw + 1;
   $p2draw = $p2draw + 1;
   $player{$1} = [$1, $p1wins, $p1loss, $p1draw];
   $player{$2} = [$2, $p2wins, $p2loss, $p2draw];
  }
 }
}                                                       
print $player{Kasparov}[0], " ",$player{Kasparov}[1], " ",$player{Kasparov}[2]," ",$player{Kasparov}[3],"\n";
print $player{Anand}[0]," ",$player{Anand}[1]," ",$player{Anand}[2]," ",$player{Anand}[]3,"\n";
print $player{Karpov}[0], " ",$player{Karpov}[1], " ",$player{Karpov}[2]," ",$player{Karpov}[3],"\n";
print $player{Shirov}[0], " ",$player{Shirov}[1], " ",$player{Shirov}[2]," ",$player{Shirov}[3],"\n";
print $player{BlueJunior}[0], " ",$player{BlueJunior}[1], " ",$player{BlueJunior}[2]," ",$player{BlueJunior}[3],"\n"

##</code><code>##

                                                                              2loss, $p2draw];
  }
 )