#!/usr/bin/perl

use strict;
use warnings;

use List::MoreUtils qw/ uniq /;

my %lines;
my @errors;

while (<>) {
    chomp;
    if (!/telemetry\.log/) {
        my @parts = split ' ', $_;
        push @{$lines{$parts[4] // ''}}, $_;
        if (($parts[6] // '') eq 'ERR:') {
            push @errors, $parts[4];
        }
    }
}

foreach my $uuid (uniq @errors) {
    print "-----------------------------------------\n";
    print "\n   UUID: $uuid\n\n";
    foreach my $line (@{$lines{$uuid}}) {
        print "$line\n";
    }
}
