Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

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

Select or download this

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