#!/usr/bin/env perl 
use strictures;
my @v = 'A1=<9,8>:<7,6>:<5,4>...go on' =~ /\d/ag;