my ($pid) = $zeile =~ /pid=(\d*)/;