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