use strict;
use warnings;
use Text::CSV;

my $dataStr = <<DATA;
1/1/1923\tFirst entry\t-23.45
2/2/1924\t"Second entry with a long multi-line description.
This is parsed fine using Text::CSV, but I bet your regex chokes."\t23.23
DATA

open my $dataIn, '<', \$dataStr;
while (my $line = <$dataIn>) {
    next if $line !~ /(-?\d*\.\d*)/;
    
    print "Value is $1\n";
}

close $dataIn;