Select Code to Download

 
my ($x, $y, $z) = ('', '', '');
($x, $y, $z) = split(',', $_);

my ($x, $y, $z) = map { $_ || '' } split(',', $_);

use strict;
use warnings;
...
x = a
y = 0
z = b