http://www.perlmonks.org?node_id=183293


in reply to Extract data from pipe delimited text

If I remember correctly (which doesn't always happen), I believe Mysql STDOUT query output (which is what you, I believe, are parsing), uses "\s+|\s+" in between columns. Unless you are just talking about a flat file with pipe as the delimeter that you can THEN slap into mysql, wherein I believe

while (my $line = <>) {
    my $category = split("|", $line, 1);
    # ...
}

[download]
would get the job done.

In Section Seekers of Perl Wisdom