while ($l=<>) {
	if ($l !~ /^INSERT/) {
		if ($l=~/"uid" int4/) {
			$l=~s/[^,]*/       "uid" SERIAL/;
		}
		print $l;
	} else {
		if ($l=~/^INSERT/ && $l=~/uid/) {
			# le dernier champ est toujours entre cote
			$l=~s/"uid","disp"/"disp"/g; 
			if ($l=~/NULL\);/) {
				$l=~s/[^,]*,(NULL)\);$/$1\);/g;
			} else {
				$l=~s/[^,]*,(\'[^\']*\')\);$/$1\);/g;
			}
		}
		print $l;
	}
}