Select Code to Download

Gimme a string: a
Gimme a RegEx: a(
Unmatched ( in regex; marked by <-- HERE in m/a( <-- HERE / at .. line
+ .. <STDIN> line 2.

use strict;
use warnings;
...

print $str =~ /$rex/ ? "Yes!" : "No.";

perl -E "say 'match' if 'ec' =~ /$ARGV[0]/" "ec(?{print 'EVAL!';})"

Eval-group not allowed at runtime, use re 'eval' in regex m/ec(?{print
+ 'EVAL!';})/ at -e line 1.