Select Code to Download

use Modern::Perl;
use Data::Dumper;
...
my @col = $a =~ /([^,]+)/gi;

say Dumper \@col;

$VAR1 = [
          'a',
...
          'c',
          'd'
        ];

use Modern::Perl;
use Data::Dumper;
...
my @col = ( split ',', $a, )[ 0 .. 3 ];

say Dumper \@col;

$VAR1 = [
          'a',
...
          'c',
          'd'
        ];