my $header = $1 if /^([^\s]+)/;