# If you need the stuff in @data_out

my @data_out;
while (<DATA>) {
   next if /^\*{4}200[^6]/;
   push @data_out, $_;
}

print @data_out;