in reply to Re^2: golf: shortest way to parse a pipe delimited file
in thread golf: shortest way to parse a pipe delimited file

Save a couple of chars by taking advantage of the fact that shift defaults to @_ while in a sub. 
%p=map{chomp;split/\|/;shift,[@_]}@_

[download]
Using chop instead of chomp would help, but might not be portable.
Caution: Contents may have been coded under pressure.

In Section Obfuscated Code