if($entry =~ /^\s*?#/){
    my $zahl;
      if($entry =~ /Points/){
         $entry =~ /(\d+)/;
         $zahl = $1;
        $zahl -= 200;
        $entry = "#  Number of Points: ".$zahl;
      }

      print $outfh $entry,"\n";
    }