Help for this page

Select Code to Download


  1. or download this
    # If you need the stuff in @data_out

...
}

print @data_out;
  2. or download this
    # If you don't need @data_out

while (<DATA>) {
   print unless /^\*{4}200[^6]/;
}
  3. or download this
    # If you want something easy to read and
# don't mind loading the entire file into memory.

print grep { !/^\*{4}200[^6]/ } <DATA>;