in reply to Optimal way to read in pipe delimited files

use Text::xSV;

my $parser = Text::xSV->new(
    fh => \*SRC,
    sep => '|',
);

my %prod;
while ( my @row = $parser->get_row ) {
    $prod{ shift @row } = \@row;
}

[download]
My criteria for good software:
  1. Does it work?
  2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

In Section Seekers of Perl Wisdom