Select Code to Download

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
my $str = q{<1,2>:<5,7>:<3,0>};
...
7
3
0