Select Code to Download

use strict;
use Data::Dumper;
...

my @split_comma_space = split /,\s+/, $string;
print "\@split_comma_space =>", Dumper(\@split_comma_space);

@split_comma =>$VAR1 = [
          'a',
...
          '2',
          '3'
        ];