$_="|" x 5;
@foo = split /\|/,$_;
print scalar @foo; # prints 0