@INFFiles = glob($filespec);

##</code><code>##

$ perl -ple 's/[^\d+\.\d+\.\d+\.\d+]//g'
This has no numbers, dot or plus

This has 1 dot.
1.
This has 1234567890 + .
1234567890+.

##</code><code>##

$ perl -ple 's/[^.\d+]//g'
This has no numbers, dot or plus

This has 1 dot.
1.
This has 1234567890 + .
1234567890+.