Help for this page

Select Code to Download

Select or download this

   $hdr=<>; 
   while ( <> ){ 
      @A=split(","); 
      print join(",", @A[0 .. 3]),"\n" 
   }