$name =~ /^[a-zA-Z][\w.-]*$/

##</code><code>##

 $name =~ /^[a-zA-Z][\w\.-]*$/