my $reg;
$reg = qr/...(??{sub{$reg}->()}.../;