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.