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

my $csv = Text::CSV->new({sep_char => "\t", binary => 1});

open my $dataIn, '<', \$dataStr;
while (my $row = $csv->getline($dataIn)) {
    my ($date, $description, $value) = @$row;
    
    print "Value is $value\n";
}

close $dataIn;

##</code><code>##

Value is -23.45
Value is 23.23

##</code><code>##

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;

##</code><code>##

Value is -23.45
Value is .
Value is .