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