my $T = qr/[^"|]*/;
s/((?:^|\|)(?:$T"$T")*$T)"($T)(?=$|\|)/$1$2/go;