Select Code to Download

5030 => 5030|RED DOOR|10-14
...

5030 => '5030|RED DOOR|10-14',
...

    my %extract;
    while (<>) {
        /\s(\d+)\|(.*)\Z/ && push @{$extract{$2}}, $1;
    }