Perl 6 unicode quoting issues

for ^0xffff -> $i {
    my $c = try { $i.chr };
    next if !$c.defined or $c eq "(";
    next unless $c ~~ /<:Ps>|<:Pi>/;
    my $end = :16(uniprop($c, "Bidi_Mirroring_Glyph"));
    next unless $end.defined;
    $end = $end.chr;
    my $q = qq{q$c foo $end};
    if ! try {$q.EVAL}.defined {
        say "Cannot parse quoting $q";
    }
}

# output:
#
#Cannot parse quoting q⟬ foo ⟭
#Cannot parse quoting q⟮ foo ⟯
#Cannot parse quoting q⦍ foo ⦐
#Cannot parse quoting q⦏ foo ⦎
#Cannot parse quoting q⸢ foo ⸣
#Cannot parse quoting q⸤ foo ⸥
#Cannot parse quoting q⸦ foo ⸧
#Cannot parse quoting q⸨ foo ⸩