open OUT, ">$Output_Directory/sitescope.dat" or die "Can't open OUTPUT file: $!"; foreach (@data) { @tmp = split(/\t/); ($time,$date) = split(/ /,$tmp[0]); $date =~ s/2003/03/g; $time = substr($time,0,5); $mday = substr($date,3,2); $hour = substr($time,0,2); print OUT "$date\.$time\t"; foreach (@tmp[1..5]) { $seconds = $_/1000; print OUT "$seconds\t"; } print OUT "\n"; } close OUT;