Substitute with what? nothing? Try this:

open (FILE, "<$fn");
$_ = join('',<FILE>);
close(FILE);
s/[^\d\.]+//sg;
print $_;
[download]

Dingus

---

Enter any 47-digit prime number to continue.