/a/

##</code><code>##

    my $q1;
       $q1 = qr /a(??{$q1})?/;
    my $q2 = qr /^$q1$/;

##</code><code>##

    /^(?!)*$/

##</code><code>##

    /^(|)*$/