$string = substitute($string, '([^,]*,)([^,]*,)([^,]*,)([^,]*,)', $str_regexp);