#!/usr/bin/perl

use strict;
use warnings;

my $re = qr/((?:\w{3}\s+){2}\d+\s+(?:\d+:){2}\d\d\s+[A-Z]{3}\s+\d{4})$/;


if( 'irgendwas anderes, ein ganz langer Text Fri Jun  8 15:18:12 MSZ 2007' =~ $re ){
    print $1,"\n";
}