my ($dummy, $dummy, $result) = map /(\d\d \w\w\w \d\d\d\d)/, split /\n/, $content;