Select Code to Download

{
    my $name = "s@--__";
...
        print "not match\n";
    }
}

Possible unintended interpolation of @___ in string at math1.pl line 1
+1.
s-__
...
not match
s!!!@@@___
not match