Select Code to Download

if( /block-start/ .. /block-end/ ) { 
    $block .= $line;
...
    print $block if $hit;
    $block = $hit = undef;            # reset
}