Select Code to Download

my $i = index $block, "\n";
while($i > 0){
...
    $i = index $block, "\n";

}

my $block;
local $_ = '';
...
    }
}
push @lines, $_ if length;