@cl_data_row=(eval"\split(/\$de/,$inp_row)");

##</code><code>##

@cl_data_row = split(/\Q$de/, $inp_row);