print "\n  REMOVED $file\n\n" if $file =~ m/(.{10,}XYZQW|KMHYT.*\.csv|\.txt)/i;