I have a perl script that runs a program and puts the output of the program into a variable. The output of the file looks like:

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

Hi Boomn4x4,

You were near. Here a code that works:

$ 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'
        ];