#!/usr/bin/perl
use Net::LDAP;
use Encode;

$outputfile = 'C:\Meta\MDS\data\out\LicMan1.csv';
$outputfile2 = 'C:\Meta\MDS\data\out\LicMan.csv';

open (INPUT, "<:encoding(UTF-8)", $outputfile) or die "Cannot open filename for input: $!";
while (<INPUT>) {
    s/"//g;
    $replace .= $_;}
close INPUT or die "Cannot close filename: $!";
open (OUTPUT, ">:encoding(UTF-8)",$outputfile2) or die "Cannot open filename for output: $!";
print OUTPUT $replace;
close OUTPUT or die "Cannot close filename: $!";