my $inp_row="per|l|mo|nks|ro|ck|s";
my $de = "|";
my $count =()= $inp_row =~ m/\Q$de/g;
print "Delimeter is '$de', count is $count\n";
#Output:
#Delimeter is '|', count is 6