Shell Programming and Scripting

Statistics 0
    AverageTime: [0,0]
Statistics 0
    AverageTime: [124,0]

$result = `$program`;
@matches = ( $result =~ /AverageTime: \[(.*).\,/g);

When I print the arrary:
print "@matches\n";

0 124

$ cat script.pl
#!/usr/bin/env perl

use warnings;
use strict;
use Data::Dumper;

my $result = <<'EOF';
Statistics 0
    AverageTime: [0,0]
Statistics 0
    AverageTime: [124,0]
EOF

my @matches = ( $result =~ m/\[(\d+),\d+\]/g );

print Dumper \@matches;
$ perl script.pl
$VAR1 = [
          '0',
          '124'
        ];