use strict;

open(DAT, "export.dat")||die "Cannot open export.dat for read:$!\n";

my @temp_lines;
push @temp_lines, scalar <DAT>;
my $closed = 1;

while($temp_lines[0] !~ /^<EOF>$/){
  open(TEMP, ">temp.dat") if $closed;
  $closed = 0;
  push @temp_lines, (eof DAT) ? '<EOF>' : (scalar <DAT>) ;

  print TEMP shift @temp_lines;

  if($temp_lines[0] =~ /^(1|<EOF>)/){
    close TEMP;
    &output_data();
    $closed = 1;
  }
}
close DAT;

sub output_data{
  print "in output_data\n";
  open(TEST, 'temp.dat')||die "cannot open temp in sub:$!\n";
  while(<TEST>){
    chomp;
    print "$_\n" if $_ =~ /\S/;
  }
  print "end of output_data\n";
}