#!/usr/bin/perl

my $string = "Bla\nBlo\nBloe";
print join("|", split('\n', $string));
[download]

$ perl -MO=Deparse split.pl 
my $string = "Bla\nBlo\nBloe";
print join('|', split(/\n/, $string, 0));
split.pl syntax OK
[download]

Arjen

You live and learn :) What a stupid special exception!

---

Examine what is said, not who speaks.

Silence betokens consent.

Love the truth but pardon error.

It's not really a special exception, the first argument to split() is a regular expression, irrespective of what the delimiters are, the only special case there being the difference between / / and ' '.

/J\

Some playing around shows it's not an exception:

#!/usr/bin/perl

my $string = "Bla\nBlo\nBloe";
print join("|", split('something', $string));
[download]

This code is parsed as

~$ perl -MO=Deparse split.pl 
my $string = "Bla\nBlo\nBloe";
print join('|', split(/something/, $string, 0));
split.pl syntax OK
[download]

The same goes for double quotes. split() expects a regex, but apparently will settle for things in quotes and interpret the string as a regex. Indeed, you live and learn :-)

Arjen