use Text::CSV_XS;

my $csv = Text::CSV_XS->new({
                 sep_char => ",",
                 quote_char => '"',
              });

$csv->parse($dbconnectionstring);
my ($dsn,$user,$pass) = $csv->fields();

our $conn2 = DBI->connect($dsn, $user, $pass);
die($DBI::errstr) unless $conn2;