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