Good catch.

OK - here is a somewhat contrived variation that seems to work for me:

use strict;

$_="this  that other thing that thw tests sometimes";
my $regex = qr/(t..)\w+\s+?(\w\w)(.+)/;
my  @buffer;
my @x;
while ( (@x[0..1],$_) = /$regex/) {
   push @buffer, [ @x ]; 
   print join(",",@x)  . ";\n"; 
}
[download]

Changes:

• You need to know how many elements to expect
• The regex has been modified to return all remaining information as the final element
• The final element gets re-stored into $_
• No more /g modifier