$length=$string=~y///c

##</code><code>##

$length = scalar split /|/,$string