perl -ple '$_=join",",/\d+/g' input.txt