my @x = qw{a b a c bab aca};
my @y = grep { /(.?a.?)/ } @x;
print "|$_|\n" for @y;