local $_ = 'abbbbbc';

{
   local @memoList;

   /
      a
      (?:
         (b)
         (?{ push @memoList, $1 })
       )*
      bbc
   /x;

   print(@memoList, "\n");  # bbbbb
                            # Wrong! There should only be three!
}


{
   local @memoList;

   /
      (?{ [] })
      a
      (?:
         (b)
         (?{ [ @{$^R}, $1 ] })
      )*
      bbc
      (?{ @memoList = @{$^R} })
   /x;

   print(@memoList, "\n");  # bbb
}


{
   local @temp;
   local @memoList;

   /
      # (?{ @temp = (); })  # Redundant with 'local @temp'.
      a
      (?:
         (b)
         (?{ local @temp = (@temp, $1); })
      )*
      bbc
      (?{ @memoList = @temp })
   /x;

   print(@memoList, "\n");  # bbb
}