A1=<m,n>:<p,q>:<s,t>...go on

##</code><code>##

my $string = "<1,2>:<5,7>:<3,0>";
my @x = split /\s*[,:]\s*/, $string;
print "Extraction = @x\n";
print "1st element = $x[0]";


##</code><code>##

my @a = $string =~ m[\s*<\s*(\d+)\s*,\s*(\d+)\s*>\s*]g;

##</code><code>##

my @a = $string =~ m/(\d+)/ag; #compilation error : couldn't recognise what is 'a'