while ( $array =~ /\[         #open sq bracket
	((?:\s*\d+){3})       #match 3 numerics
	,
	((?:\s*\d+){3})
	\]
	/gx)
{
    print "Grr: get inside this loop";
}