Select Code to Download

   while (<DATA>) {
     my ($MMDDdata, $Stages1, $LAT1, ...) = unpack($ormat1, $_);
...

     print OUT "$MMDDdata 0000 $LAT1 $LONG1 ...\n";
   }