$ perl -wle ' "any string" =~ m/$ARGV[0]/' "(?{system 'cat /etc/passwd'})"
Eval-group not allowed at runtime, use re 'eval' in regex m/(?{system 'cat /etc/passwd'})/ at -e line 1.