in reply to Re^4: extract lines between same pattern
in thread extract lines between same pattern

read perlintro, perlretut 
if( "foo" =~ /(.)/ ){
    print "$1\n"
}
__END__
f

[download]

In Section Seekers of Perl Wisdom