c:\@Work\Perl\monks>perl -wMstrict -le
"use warnings;
 use strict;
 ;;
 use Data::Dumper;
 ;;
 $_ = 'vv,WWWW,xxx,YY,zzzz,';
 ;;
 my ($v, $w, $x, $y, $z) = split(/,$/);
 print Dumper($v, $w, $x, $y, $z);
 ;;
 print qq{'$v'  '$w'  '$x'  '$y'  '$z'};
"
$VAR1 = 'vv,WWWW,xxx,YY,zzzz';
$VAR2 = '';
$VAR3 = undef;
$VAR4 = undef;
$VAR5 = undef;

Use of uninitialized value in concatenation (.) or string at -e line 1.
Use of uninitialized value in concatenation (.) or string at -e line 1.
Use of uninitialized value in concatenation (.) or string at -e line 1.
'vv,WWWW,xxx,YY,zzzz'  ''  ''  ''  ''