[0-9_]*[a-zA-Z][a-zA-Z0-9_]*

##</code><code>##

if ($str =~ /^[0-9_]*[a-zA-Z][a-zA-Z0-9_]*\z/) {
   ...
}