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