Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
        print join('|',@result) . "\n";
    }
}

Select or download this

$ perl -w 1130518.pl 
John Doe Joe split correctly, list has 3 elements. - John|Doe|Joe
...
John  split correctly, list has 1 elements. - John
John split correctly, list has 1 elements. - John
$