my $set = "ABCDEF";
for (<DATA>) {
  chomp;
  print "$_ vs. $set : ", $_ =~ m!([$set]).*\1|[^$set]! ? "Yes" : "No", "\n";
};
__DATA__
A
B
C
ACX
ABC
AA
BB