in reply to Re^2: Decompose a String into Tuples (Faster and Compact Way)
in thread Decompose a String into Tuples (Faster and Compact Way)

You just want to split each of the extracted tuple-strings: 
my $aref = [ map [split], $s1 =~ /(?=([a-z]\s*(?:\S+\s*){2}))\S+\s*/gi
+ ];

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom