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

##</code><code>##

@foo = split /\|/,$_,-1