#!/usr/bin/perl
 use strict;
 use warnings;
# OP's code from question at #1190163
  
 use Text::CSV;
 my $csv = Text::CSV->new({ sep_char => ',' });
 while (my $line = <DATA>)  {            # added open curly
   if ($csv->parse($line)) {
        (my @fields) = $csv->fields();   # enclosed my @fields in () so $csv does not mask earlier
       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