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

##</code><code>##

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