print grep{ /^\b.*(p).*$/msgi } @w