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