Select Code to Download

while(<DATA>)
{
...
    # decide whether to end print with newline
    print "\n" unless $cont;
}

while (<DATA>)
{
    s/\\\s*\n//;
    print;
}