$ perl -E 'use re "eval"; my $a = qr//; /(?{ say("See?") })$a/'
Undefined subroutine &main::say called at (re_eval 1) line 1.