in reply to Re^2: Regex - counting number of '|'
in thread Regex - counting number of '|'

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

has four errors in it!

Fixed:

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

Why aren't you using Text::CSV anyway?