note
rbc
try something like ...<br>
<br>
<code>
my $s = "one|two|three|four";
(@items)=split /\|/, $s;
print "NI = $#items+1\n@items\n";
</code>
<br>
... I hvae been drinking cheap wine so you<br>
better double check :)<br>
--<BR>
Its like a dog that can sing and dance.<BR>
It's remarkable because it can do it.<BR>
Not that it can do it well.
135204
135204