Select Code to Download

my @q[0..1] = ( "\n" x 2);  # other initialization may be apropos

...
}
# current line, the last line is now in $q[0]

# handle last line in loop
    if ( not defined $q[1] ) {
...
          do_something( \@q);
          last;
     }