$text = 'a|b|c|||||||||e||||';
@array = split(/\|/,$text);
print scalar(@array);