use Text::CSV;
my $csv = Text::CSV->new ({
    auto_diag           => 1,
    allow_loose_quotes  => 1, # optional, also works without this attribute
    allow_loose_escapes => 1,
    });
while (my $row = $csv->getline (*DATA)) {
    say for @$row;
    }

__END__
0,""Rat Control" <sip:+15559999999@192.168 .5.233>;tag=gK004bb052",9