Re^2: split and join, what's the clever way to do it

The first argument to split is a regex, not a string. It makes a difference.

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

The cake is a lie.
The cake is a lie.
The cake is a lie.

Comment on Re^2: split and join, what's the clever way to do it Download Code