$nums = "1,2,3,4,5,6";
$nums =~ s/\D/ /;
print "$nums\n";