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

##</code><code>##

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

##</code><code>##

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