Help for this page
@cl_data_row=(eval"\split(/\$de/,$inp_row)");
@cl_data_row = split(/\Q$de/, $inp_row);