open(FH, "<$file");
@array = <FH>;
close FH;
open(OUT,'>','outfile.txt');
@array1 = @array[3..$#array-4];
print OUT @array1;
close OUT;
open (FILE, "/test/outfile.txt");

while (<FILE>) {

    print;

   ~ /^.*([0-9][0-9][0-9])..*([0-9][0-9][0-9][0-9])..*([0-9][0-9][0-9])..*([0-9][0-9][0-9][0-9])..*([0-9][0-9][.][0-9][0-9])  .*([0-9][0-9][0-9][.][0-9])  .*([0-9][0-9][.][0-9]).*([0-9][0-9][0-9][0-9])/s;


   $id = $1;
   $year4 = $2;
   $doy = $3 ;
   $time = $4;
   $speed = $5;
   $ddir = $6;
   $temp = $7;
   $baro = $8;  
   $windgust = $9;
   $gusttime = $10;