Select Code to Download

$constraint =~ m@
    ^\s*        # skip all whitespace at beginning
...
    [cgimosx]*    # ?? don't understand what this is for. what are we 
+trying to match? I thought the ops were matched above
    \s*$        # skip all whitespace at end
    @x

my $input = 'http://www.knowmad.com/';
my $constraint_good = '/[\\!@#%&_:\$\^\*\(\)\+\.\/]+/';
...
} else {
    print "no good.\n"
}

matched
Error compiling regular expression /[!@#%&_:\$\^\*\(\)\+\.\/]+\/: Sear
+ch pattern not terminated at (eval 2) line 1.