$file =~ s/\d\d-\d\d-\d\d$//;
   print "$file\n";
}