#!/usr/bin/perl
use strict;
use warnings;
 
use Text::CSV;
my $csv = Text::CSV->new({ sep_char => ',' });
while (my $line = <DATA>)  
  if ($csv->parse($line)) {
       my @fields = $csv->fields();
      print
      print "$fields[0],";
      print "$fields[1],";
      print "$fields[2]\n";
   
  } else {
      warn "Line could not be parsed: $line\n";
  }
}


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