#!/usr/bin/perl
# your code goes here
my @numbers;
while(chomp(my $line=<DATA>)){
	if($line =~ m|\[(.*),(.*)\]|){
	push @numbers, ($1,$2);
	}
}
print @numbers;	
__DATA__
this is the range of values [a1,b1]
this is the range of values [a2,b2]
this is the range of values [a3,b3]