>perl -wMstrict -le
"my $list = '1, 23-456 7890';
 my @digits = $list =~ m{ \d }xmsg;
 printf qq{'$_' } for @digits;
"
'1' '2' '3' '4' '5' '6' '7' '8' '9' '0'