Select Code to Download

my $forbidden = qr{^(?:master|model|dbccdb|sybsecurity|sybsystemdb|syb
+systemprocs|tempdb|DBA)[a-zA-Z0-9_]+};
if ( $entered =~ $forbidden )
{
    # Your rejection code here
}