#!/usr/bin/perl -w
 open (INPUT, "target.txt") || die "can't read from target:$!\n";
 open (OUTPUT1, ">file1.txt") || die "can't write to file1.txt:$!\n";
#
#
while (<INPUT>)
  {
    last if $_ =~ /^DETS01/;
    print OUT "$_\n";
  }
close (INPUT);
close (OUTPUT);

exit;