my (undef, @headings) = split ' ', first {/^\s*AUID/} @lines;