my $re = qr|(?{system 'cat /etc/passwd'})|; "any string" =~ $re;