You don't have any captures before your use of $^N, so it's always undef when you use it. Change

(?><+)
[download]

to

((?><+))
[download]

By the way,

use vars qw' $LEN ';
[download]

would be better as

local our $LEN;
[download]