Select Code to Download

while ($string=<IN>)
{
...
        print "@lines\n";
    }
}

local $/ = ");\n";
local $\ = $/;
...
        print "@lines\n";
    }
}