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