c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $string = '<1,22>:<5,7>:<333,0>';
 my @x = split /\D+/, $string;
 dd \@x;
"
["", 1, 22, 5, 7, 333, 0]