#!/usr/bin/perl
use strict; use warnings; 

my @res= SplitCSVLine('123,hubba hubba,bla fasel,hell');

print ':',join":",@res,":\n";

##</code><code>##

:123:hubba hubba:bla fasel:hell::

##</code><code>##

$line =~ s/\"((\"\"|[^\"])*)\"\s*(,|$ )//x;