$ perl -Mstrict -Mwarnings -E '
my $x = q{a,b,c,d,};
my @col = split /,/, $x, -1;
say "X${_}X" for @col;
'
XaX
XbX
XcX
XdX
XX