#!/usr/local/bin/perl

################################################################################

open (PROJ, "Batting_NL_P.csv") || die "Couldn't open Batting_NL_P.csv\n";
open (TEMP, ">temp_eliminate_dups");
while (<PROJ>) {
  s/Young,Chris,/Young,ChrisH,/;
  s/Braun,Ryan,/Braun,RyanH,/;
  print TEMP;
}
close (PROJ);
close (TEMP);
`mv temp_eliminate_dups Batting_NL_P.csv`;

################################################################################

open (PROJ, "Batting_AL_P.csv") || die "Couldn't open Batting_AL_P.csv\n";
open (TEMP, ">temp_eliminate_dups");
while (<PROJ>) {
  s/Pena,Tony,/Pena,TonyH,/;
  print TEMP;
}
close (PROJ);
close (TEMP);
`mv temp_eliminate_dups Batting_AL_P.csv`;

################################################################################

open (PROJ, "Pitching_NL_P.csv") || die "Couldn't open Pitching_NL_P.csv\n";
open (TEMP, ">temp_eliminate_dups");
while (<PROJ>) {
  s/Young,Chris,/Young,ChrisP,/;
  s/Pena,Tony,/Pena,TonyP,/;
  print TEMP;
}
close (PROJ);
close (TEMP);
`mv temp_eliminate_dups Pitching_NL_P.csv`;

################################################################################

open (PROJ, "Pitching_AL_P.csv") || die "Couldn't open Pitching_AL_P.csv\n";
open (TEMP, ">temp_eliminate_dups");
while (<PROJ>) {
  s/Braun,Ryan,/Braun,RyanP,/;
  print TEMP;
}
close (PROJ);
close (TEMP);
`mv temp_eliminate_dups Pitching_AL_P.csv`;