in reply to strlen like function in perl

Just another solution: 
$length=$string=~y///c

[download]
Yet another solution: 
$length = scalar split /|/,$string

[download]

In Section Seekers of Perl Wisdom