Select Code to Download

my ($server, @data) = map { $_ eq '' ? 0 : $_; } split /,/;

my ($server, @data) = map { $_ eq '' ? 0 : $_ } split /,/, $_, -1;