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