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