my @b = grep { !/\.\w+$/} @a;