use warnings;
use strict;

while (<DATA>) {
    chomp;
    if (/[^aeiou][aeiou]p$/i) {
        print "$_ match\n";
    }
    else {
        print "$_ no match\n";
    }
}

__DATA__
carp
step
tip
stoop
steep
asp
food
mop
up

##</code><code>##

carp no match
step match
tip match
stoop no match
steep no match
asp no match
food no match
mop match
up no match