$ perl -le '$line = "a|b|c|d"; print "-- $_:\n", join( "\n", split( $_, $line ) ) for ( qr/\|/, "|" )'
-- (?-xism:\|):
a
b
c
d
-- |:
a
|
b
|
c
|
d