*** Get aaaa-nnnnnnnn from config file *** I am using XML::Simple

while ($file = readdir DIR) {
	next if $file =~/^\./ || $file not matched by $filename_template;
	
	*** Carry on to do something with a file that does conform...