#!/usr/bin/perl

$infile = "my_file";

open (FILE, $infile);
@text = <FILE>;
close(FILE);

foreach $line (@text) {
        $_ = $line;
        if (/^Info I want/../^Start of Info/) {
                print;
        }
}