my $ci = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
my $co = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\n" });
open my $fi, "<:encoding(utf-8)", "google.csv";
open my $fo, ">:encoding(utf-8)", "contacts.csv";
while (my $row = $ci->getline ($ci)) {
    $row->[34] =~ s/^0/+91/;
    $co->print ($fo, $row);
    }
close $fi;
close $fo;