Select Code to Download

print join(",",split(/\s+/,$line,7)),"\n";

print join(",",+(split(/\s+/,$line,4))[0 .. 2]),"\n";