#!/usr/bin/perl

use strict;
use warnings;
our ($fileIn, $fileOut);

use Getopt::Long;

GetOptions(
     'FileIn=s' => \$fileIn,
     'FileOut=s' => \$fileOut,
  );

if($fileIn && $fileOut) {
   open(INPUT,"<","$fileIn");
   #undef $/;
   while(<INPUT>) {
   next if /^\n/;
   s/\t+//g;
   s/^\s+//g;
   if(/^HEADER(.*?)^GENRE_BY(.*)/sm) {
    print ;
   }
  }
 }

##</code><code>##

HEADER(
   LIBDAT("GTASK")
   VENDOR("DeltaQ")
   Environment("zeronom")
   TASK_VERSION("5.2")
   GENRE_BY("dumpTc")
)
...
...
HEADER(
   LIBDAT("GTASK")
   VENDOR("DeltaQ")
   Environment("zeronom")
   TASK_VERSION("5.2")
   GENERATED_BY("dumpTc")
)
...
...
HEADER(
   LIBDAT("GTASK")
   VENDOR("DeltaQ")
   Environment("zeronom")
   TASK_VERSION("5.2.1")
   GENRE_BY("dumpTc")
)
...
...