my @chars = split //, $inp_row;
my $cnt = 0;
for (@chars) { $cnt++ if ($_ eq $de) }
[download]

You could eliminate the array, for loop and conditional increment by using grep.

my $cnt = grep { $_ eq $de } split m{}, $inp_row;
[download]

I hope this is of interest.

Cheers,

JohnGG