unless($file =~ /^(\d{4})-\d{9}-([^\.]+)/){
	log_data("$file does not conform to file naming standards");
	next;
}
$lower_format = lc("$1$2");