my $aref = [ map [split], $s1 =~ /(?=([a-z]\s*(?:\S+\s*){2}))\S+\s*/gi ];