in reply to pipe as a delimiter

Try split(/\|/, $line).

In Section Seekers of Perl Wisdom