C:\>perl
$" = "|";
my $string = "   20 30 40     ";
my @x = split(" ", $string);
print "X: |@x|\n";
my @y = split(" ", $string, 10);
print "Y: |@y|\n";
my @z = split(/ /, $string, 0);
print "Z: |@z|\n";
^D
X: |20|30|40|
Y: |20|30|40||
Z: ||||20|30|40|