print if /\[foo\]/ .. /\[foo2\]/ foreach ( @lines );