while (<FILE>) {
chomp $_;
print FILEOUT substr($_, 0, 7);