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