while ($line = <inFile>) {
    chomp;
    if ($line =~ /^([\d\.]+)$/) {
        ...
    }
}