Select Code to Download

my $full_line = '';
while ( my $line = <FH> )
...

    $full_line = '';
}

    $full_line .= $full_line eq '' ? $line : " $line";

some code;
more code;
some very long long long code;