if((my $first = /^Info I want/) ... (my $last = /^Start of/)) { print unless $first || $last; }