$ perl -E 'use re "eval"; my $a = qr//; /(?{ use 5.010; say "See?" })$a/'
See?