Select Code to Download

use strict;
use warnings;

    @fields = spit " ";

$_ = "   begins with whitespace";

...

print "quoted-space split returns ", scalar @a, " elements\n";
print "\\s+ split returns ", scalar @b, ", first one has length ",leng
+th($b[0]),"\n";