local $/ = \64;

##</code><code>##

my $length = 64;
local $/ = \$length;