next if /^#/                         # document this 
     or /^\s*$/                      # document this too 
     or length < $min_useful_length  # and this one
     or /^REM/                       # and so on ...
     or not /^.{3}\d{4}/             # ... 
     ...
     ;