my @list = bsd_glob ("$DIR/*txt", GLOB_QUOTE );
@list .= bsd_glob ("$DIR/*XYZ", GLOB_QUOTE );