# If you don't need @data_out

while (<DATA>) {
   print unless /^\*{4}200[^6]/;
}