#!perl
use strict;
open OUT,">test.csv" or die "$!";

while (<DATA>){
  chomp;
  s/;;/","/g;
  print OUT '"'.$_.'"'."\n";
}
close OUT;

__DATA__
abd;;sasa;;trre,dsa;;sdas;;dsss
abd;;sasa;;trre,dsa;;sdas;;dsss