while (<FOO_FILE>) {
	print and next if (/$foo/);
	print if (/$bar/);
}