diff --git a/t/run/todo.t b/t/run/todo.t
index d8875bff9920..440c17ca3747 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -100,6 +100,55 @@ my $is_debugging_build = $Config{cppflags} =~ /-DDEBUGGING/;
 
 our $TODO;
 
+TODO: {
+    local $TODO = "[GH 8267]";
+
+    "A" =~ /(((?:A))?)+/;
+    my $first = $2;
+
+    "A" =~ /(((A))?)+/;
+    my $second = $2;
+
+    is($first, $second);
+}
+
+TODO: {
+    local $TODO = "[GH 8859]";
+    fresh_perl_is(<<~'EOF',
+        my $mul = 2**32; my $a = 104712103; my $b = 50;
+        my $c = 449735057880383538; # For these values, $mul * $a + $b == $c. Thus $diff should be zero.
+        my $diff = $c - ($a * $mul + $b);
+        printf "%.0f %.0f %.0f %.0f", $a, $b, $c, $diff;
+        #printf "\$c $c %0.f\n", $c;
+    EOF
+    "104712103 50 449735057880383538 0", { eval $switches }, "");
+}
+
+TODO: {
+    local $TODO = "[GH 10194]";
+    todo_skip 1 if is_miniperl();
+
+    fresh_perl_is(<<~'EOF',
+        use Encode;
+        use Devel::Peek;
+
+        my $line = "\xe2\x90\x0a";
+        chomp(my $str = "\xe2\x90\x0a");
+
+        Encode::_utf8_on($line);
+        Encode::_utf8_on($str);
+
+        for ($line, $str) {
+            Dump($_);
+            # Doesn't crash
+            $_ =~ /(.*)/;
+            # List context
+            () = $_ =~ /(.*)/;
+        }
+    EOF
+    "", { eval $switches }, "");
+}
+
 TODO: {
     local $::TODO = "GH 16008";
     my $results = fresh_perl(<<~'EOF', {} );