use warnings;
use strict;

die <<HELP if ! @ARGV;
parse.pl <infile name>

   <infile name> source file to be processed
   
Output is printed to stdout
HELP

while (<>) {
    chomp;
    print join ' ', grep {/^[+-]?\d+(\.\d*)?$/} split;
    print "\n";
}