$tmpline =~ s/;;/", "/g;
$tmpline = qq{"$tmpline"};