my ( undef, @headings ) = split ' ', (grep /^\s*AUID/, @lines)[0];