my($s1, $s2) = qw/ foo bar /; for (@words) { print if /$s1/; print if /$s2/; }