Select Code to Download

sub btree
{ #  I personally would much prefer hash reference(s) here
...
        , ( (split /$sep/ , $line , $size)[@$items] );
    };
}