my $zahl;
if($zeile =~ /Points/){
    $zeile =~ /(\d+)/;
    $zahl = $1;
}
$zahl -= 200;