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