Select Code to Download

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

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

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

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