Select Code to Download

$str = 'a, "b,c", d';
@array = eval('('.$str.')');

#!/usr/bin/perl

#set string to split on ","
...
{
    print $_, "\n";
}