#!/usr/bin/perl
use Fcntl;
use strict;

print "starting script...";

my $inp_row = "per|l|mo|nks|rock|s";
my $de = '|';
my @cl_data_row;

my $count = (eval "\$inp_row =~ tr/$de//");
die $@ if $@;
print "count is $count\n";

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

for (my $x=0;$x<$count;$x++)
{
	print "row element is $cl_data_row[$x]\n";
}