#!/usr/bin/perl

my $string;
{
    $/ = undef;
    $string = <DATA>;
}

while ($string =~ m!\[\s*([^]]+)\]!g) {
    my @nums = split(/\s+/,$1);
    print "Array : ",join(',',@nums),"\n";
   
}

__DATA__
[1 1 1 1 1 1 ][4 4 4 4 4 4]

[ 123 123 123
  123 123 123
  123 123 123 ]

"P"

[ -1 1 1
  1 1 -1
  1 1 1 ]