% perl -e '/$ARGV[0]/' '(?{print "nasty\n"})'
Eval-group not allowed at runtime, use re 'eval' in regex m/(?{print "nasty\n"})/ at -e line 1.
% perl -e 'eval qq(/$ARGV[0]/)' '(?{print "nasty\n"})'
nasty