my ($name) = /^(\S+)/;