my $bytes;
for my $line (@{$info->{data}}) {
  if ($line =~ m/^[\da-f]{4}\s*(([\da-f]{2} )+)/i) {
    my $hex = $1;
    $hex =~ s/\s//g;
    $bytes .= pack("H*", $hex);
  }
}