#!/usr/bin/perl

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

##</code><code>##

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