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