Shell Programming and Scripting

START
DATA1 sjdfh kjhdf 
DATA2 sdkjfhk jds dshfgdf 
... Around 20 - 30 lines
END
LDDDD awdkjasd a sdkahgdk jasdh
SOME CRAP

Some EMPTY lines etc 
START
DATA1 sjdfh kjhdf 
DATA2 sdkjfhk jds dshfgdf 
... Around 20 - 30 lines
END
SOME EMPTY Lines
SOME MORE CRAP 
START
DATA1 sjdfh kjhdf 
 DATA2 sdkjfhk jds dshfgdf 
 STOP

START
DATA1 sjdfh kjhdf 
  DATA2 sdkjfhk jds dshfgdf 
  END

#!/usr/bin/perl
$file ="test.txt";
open(INFILE,$file);
$i=0;
while (<INFILE>){
push (@arr1,split(/\n/,$_));
}
for ($i=0;$i<$#arr1;$i++) {
  $myline = $arr1[$i];
   $j=$i;
   if ($myline =~/START/i) {
     until(($myline =~/END/) || ($myline =~/STOP/)) {
      $myline = $arr1[$j];
      push(@arr,$myline);
      $j=$j+1;
    }
}
}
close INFILE;
$file1="log.txt";
open(OUTFILE,">",$file1);
foreach $val(@arr) {
  print OUTFILE $val."\n";
}
close OUTFILE;

if (($myline =~ /START/ ) || ( ...