note
Tanalis
Why not just count the instances of whitespace?
<code>
my $str = "this is a test string";
my $cnt = 1; # num tokens = whitespace + 1
++$cnt while $str =~ /\s+/g;
print $cnt, "\n"; # prints 5
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-189756">
<P>-- [189756|Tanalis]
<BR><TT>#include [http://www.liquidfusion.org.uk|www.liquidfusion.org.uk]
</TT></P>
</div></div>
547098
547098