LINE: while(<FILE>) {
    chomp($_);
    $_=~ s/ +/\t/s;
    print OUTPUT "$_\n";
    # $_ =~ s/^(d{6})\t(d{2}):(d{2})/$1 $2:$3/g;
    };
close(FILE);
close(OUTPUT);