Select Code to Download

if($name =~ /^[a-z0-9_]$/i && $name !~ /^(?:master|model|dbccdb|sybsec
+urity|sybsystemdb|sybsystemprocs|tempdb|DBA)$/)
{
  print "allowed\n"
...
{
  print "not allowed\n"
}

if($name =~ /^(?!(master|model|dbccdb|sybsecurity|sybsystemdb|sybsyste
+mprocs|tempdb|DBA)$)(^[a-z0-9_]+$)/i)
{
...
{
  print "not allowed\n"
}