#!/usr/bin/perl

use strict;
use warnings;

my $line = "AUDIO2-A3.12_P1:project:BmwWtz#1 Wed May 31 13:35:31 2006";

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";
}