my $params = q('196','berg',NULL,NULL);
my @list_of_params = map { s/^\'(.*?)\'$/$1/m; $_} 
                     map { $_ eq 'NULL' ? 'undef' : $_ }  
                     split(/\s*\,\s*/,$params);