# prints 'j'
"japhy" =~ m{ (.) (?{ print $1 }) }x;

# prints nothing (undef, specifically)
$rx = qr{ (.) (??{ print $1 }) }x;
"japhy" =~ m{ (??{ $rx }) }x;