Select Code to Download

use strict;
use warnings;
...
my $raw_edid = join'',split /\n/, $registry;
my $edid = parse_edid( $raw_edid );
print Dumper $edid;

$VAR1 = {
          'video_input_definition' => {
...
          'manufacturer_name' => 'QRF'
        };