for (qw{dog pig cat horse}) {
    /.o(??{print "$_ gets printed\n"; 'g'})/ and print "$_ matched\n";
}
__END__
dog gets printed
dog matched
horse gets printed