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