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