in reply to Numbers only in a string

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

[download]


In Section Seekers of Perl Wisdom