> perl -le "print for @cols = split('|', 'ab|c');"            
a
b
|
c