$line =~ s/^\s+//g;                             # strip leading whitespace
$line =~ s/\s+$//g;                             # strip trailing whitespace
my @cols = split(/ +/, $line);                  # split on spaces
my $filename = join(' ', splice(@lines, 7) );   # piece back together the filename
push @temp, $filename;                          # store filename