Hi,
but it works like that (it's a bit more like the OP code):

sub getInfoFromMultipleLine
{
    #Openning file for reading
    open(IFH,"$InputFile") || die "Can't open file: $InputFile\n";
    my $stag='START';
    my $etag='END';
    my $line;
      while(<IFH>) {
        print if /$stag/../$etag/;
      }
}
[download]

Regards,
svenXY