Select Code to Download

local $\ = "\n";  # line feed at end of print
while(<>) {
...
        print $2;
    }
}

 
local($\, $,) = ("\n", " "); 
while(<>) {
...
        print $1, $3;
    }
}