johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $str = q{<1,2>:<5,7>:<3,0>};
my @nos = map { split m{,} } split m{(?x) < | > (?: :< )?}, $str;
say for @nos;'
1
2
5
7
3
0