Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -le
"printf qq{$_ } for grep {/\d/} split '', q(<1,22>:<5,7>:<333,0>);
"
1 2 2 5 7 3 3 3 0

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @d = grep length, split qr{ >:< | [<,>] }xms, q(<1,22>:<5,7>:<333,
+0>);
 dd @d;
"
(1, 22, 5, 7, 333, 0)