no warnings 'uninitialized';
$_ = '  a string with leading whitespace';
print join( ':', split ), "\n";  
print join( ':', split /\s+/ ), "\n";
______
a:string:with:leading:whitespace
:a:string:with:leading:whitespace