in reply to How can I use 'split' with unknown amount of variables?

try something like ...

my $s = "one|two|three|four"; (@items)=split /\|/, $s; print "NI = $#items+1\n@items\n";

... I hvae been drinking cheap wine so you
better double check :)
Its like a dog that can sing and dance.
It's remarkable because it can do it.
Not that it can do it well.