for my $x (qw( foo bar )) {
   /$x/o;
}

##</code><code>##

/foo/;
/foo/;