$ perl -MRegexp::Common=number -nle '$,=" ";print/$RE{num}{decimal}/g' input.txt >output.txt