ww@GIG:~/pl_test$ perl countde.pl
starting script...count is 5
$cl_data_row is per|l|mo|nks|rock|s