use re 'eval'; # ** no longer needed from 5.18.0 onwards
$r = qr/xyz/;
/(?{ foo() })$r/;