Compensates tranes

compensate.pl

sub readfile 
{
  my $fn  = shift;
  local $/=undef;
  open FILE, $fn or die "Couldn't open file: $!";
  $string = <FILE>;
  close FILE;
  return $string;
}
sub writefile {
  my ($fn,$data) = @_;
  open FILE, ">$fn" or die "Couldn't write file";
  print FILE $data;
  close FILE;
}

open (COMP, 'compenation.csv') || die('cant open file');
while(<COMP>) {
   my ($name, $tra) = split(/,/);
   $tra +=0; # autochomp
   print "Changing profile of $name (Adding $tra trains)\n";
   my $content = readfile('player/'.$name);
   $content =~ s/Trai (\d+)/"Trai "+($1+$tra)/ge;
   writefile('player/'.$name.'.bak', $content);
}
close COMP;