$final = s/[^\d.]//g