Select Code to Download

@INFFiles = glob($filespec);

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

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