use v5.12;
use warnings;

my @words = qw"abc aab abb aba abcd abca";

my $chars = "ad";

for (@words) {
    say "$_"
        if $_ !~ / ([$chars]) .* \1 /x
}