my $result = (
    map /(\d\d \w\w\w \d\d\d\d)/, split /\n+/, $content
)[2];