Select Code to Download

join qq{\n}, 
    qq< #some code          >,
...
    qq<    #indented code   >,
    qq< };                  >,
     ;

$saved_line    = get_line(?);   # get source line number somehow
s{whatever;}
...
     and another line of the same;
 #line $saved_line
 }g