#!/usr/bin/perl -w
use strict;

my $start = qr/\Q[foo]\E/;
my $end   = qr/\Q[foo2]\E/;

while ( <DATA> ) {
	if ( /$start/ .. /$end/ ) {
		print;
	}
}
__DATA__
;
; foo file
;
[foo]
a=1
b=2
c=3
[foo2]
d=4
e=5
f=6