($name =~ m/^\_{1,3}/)

##</code><code>##

     ($name =~ m/^[^_]{3}$/)