use warnings;

my $file = "ASQWERFD.YYxxxx.W12345.XYZQW.D072413.csv"; # 
my $file2 = "ASQWERFD.YYxxxx.W12345.KMHYT.D072413.csv"; #



print "\n 6 - REMOVED $file\n\n" if $file =~ m/(.{10,}.*XYZQW.*\.csv)/ig;

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


print "\n 9 - REMOVED $file2\n" if $file2 =~ m/(.{10,}.*KMHYT.*\.csv)/ig;