(?><+)

##</code><code>##

((?><+))

##</code><code>##

use vars qw' $LEN ';

##</code><code>##

local our $LEN;