my ($header) = /^([^\n]+)/;