Select Code to Download

#!/usr/bin/perl -l

...
my $string = '<1,22>:<5,7>:<333,0>';
my @x = split /\D+/, $string;
print /\d/ ? $_ : 'empty string' for @x;

empty string
1
...
7
333
0