local $/ = "HEADER END\n"; # set input record separator
while ($file = <*.las>) {
    open(FILE, $file) || die "Couldn't open $file : $!\n";
    my $header = <FILE>;
    close(FILE);
    # process $header here
}