#! /usr/bin/env perl
use strict;
use warnings;

my $last_stamp;
my $last_pid;

while ( my $line = <DATA> ) {

    if ( my ( $stamp, $pid ) = $line =~ m{^(\S+).+eginne.+pid=(\d+)} ) {

        if ( !defined $last_stamp || $stamp gt $last_stamp ) {
            $last_pid   = $pid;
            $last_stamp = $stamp;
        }
    }
}

print "Last backup (pid $last_pid) started at $last_stamp\n";


__DATA__
25.03.12_00:04:53 Datenbankbackup erfolgreich erstellt
25.03.12_00:07:26 Backup der Archivelogs erfolgreich erstellt
25.03.12_00:07:26 Beende backdb_stdb (pid=28948)
25.03.12_18:00:02 Beginne backdb_stdb (pid=22744)
25.03.12_23:53:29 Datenbankbackup erfolgreich erstellt
25.03.12_23:56:07 Backup der Archivelogs erfolgreich erstellt
25.03.12_23:56:07 Beende backdb_stdb (pid=22744)