karls-mac-mini:Desktop karl$ perl -E "say for grep {/\d/} split '', q(<1,2>:<5,7>:<3,0>);"
1
2
5
7
3
0