Select Code to Download

#!/usr/bin/perl

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

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