perl -le '$_="2|3|||||"; @a = split /\|/, $_, 7; print scalar @a'
7