$data[ $i++ ] = pack "NNA*", m[(\d+)\D+(\d+)], $_ while <>;