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/;
      }
}