my $zeile = '25.03.12_00:07:26 Beende backdb_stdb (pid=28948)';
my ($pid) = $zeile =~ /pid=(\d*)/;
print "$pid\n";