$subscriber =~ s/(\D+)/ /; #Eliminate all non-digits followed by space.