if( $line =~ /([a-zA-Z]{3}) (\d{1,2}) (\d{2}:\d{2}:\d{2}) (\d{4})$/ ) {
   print "Monat $1\n";
   print "Tag $2\n";
   print "Uhrzeit $3\n";
   print "Jahr $4\n";