Select Code to Download

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

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

my @headings = splice @{[ split ' ', first {/^\s*AUID/} @lines ]}, 1;

my @headings = map {/(?!^\s*AUID)\s(\S+)/g} first {/^\s*AUID/} @lines;

my @headings = (first {/^\s*AUID/} @lines)=~/(?!^\s*AUID)\s(\S+)/g;

use warnings;
use strict;
...
    my (undef, @headings) = split ' ', first {/^\s*AUID/} @lines;
    is_deeply \@headings, \@expect or diag explain \@headings;
}