Select Code to Download

use Regexp::Common;

...
    /$RE{balanced}{-parens=>'()'}/  and print q{balanced parentheses\n
+};
    /$RE{profanity}/                and print q{a #*@%-ing word\n};
}