knoppix@Microknoppix:~$ perl -E '
> for ( qw{ soap creep top groat loop } )
> {
>     say unless m{(?<=([aeiou]))\1p\z};
> }'
soap
top
groat
knoppix@Microknoppix:~$