while ($l=<>) {
if ($l !~ /^INSERT/) {
	print $l;
} else {
	$l=~s/,"uid"\)/\)/g;
	$l=~s/,[^\)|,]*\);$/);/g;
print $l;
}
}
# == a appeler sur un dump de struct
# == pour virer les uid.
# == On evite les pb de sequence.