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