do {
                    $n++;
                     print_r($result);
                     exit;
                    $result[$n] = fgets($is, 1024);
                } while (substr($result[$n], 0, 5) != 'A0001');