while(){ $digits_only .= (join '', split /\D+/) . $/ }