#!/usr/bin/perl

$infile = "my_file";

open (FILE, $infile) or die "Unable to open $infile: $!";
while(<FILE>) {

  if (/^Info I want/../^Start of Info/) {

    print unless (/^Start of Info/);
  }
}
close (FILE);