while (@x = /($regex)/g) {
    push @buffer, [ @x ];
}