my @ss = (
    'A',
    'B',
    'C',
    'AB',
    'CA',
    'ABC',
    'xABCx',
    'BxCxAx',
);

for my $s (@ss) {
    if ($s =~ /A/ && $s =~ /B/ && $s =~ /C/) {
        print "$s\n";
    }
}

##</code><code>##

ABC
xABCx
BxCxAx