...
my @pairs = map [split], $s =~ /(?=(\w+ \s+ \w+))\w+ \s+/gx;

print "@$_\n" for @pairs;