if(my ($date) = $line =~ m!generated\s+((?:\w{3}\s+){2}(?:\d{2}[\s:]){4}\w{3,}\s\d{4})!){
    print $date;
}