#!/usr/bin/perl -w
use strict;

my $file = "go.txt";

print "\nOpening $file\n";

open(FILE, "< $file") || die "OLD FILE ERROR: Unable to open file: $!\n";
open(OUT, "> $file.new") || die"NEW FILE ERROR: Unable to create new file: $!\n";



while (<FILE>)
{
	my $data = join('', <FILE>);
	
	$data =~ s/(CREATE TABLE "SO"\.")([^"]+)(.+)(PRIMARY KEY)/$1 $2 $3 CONSTRAINT PK_$2 $4/ms;

	print OUT;	
}


print "Closing $file\n";

close(OUT) || die "Unable to close OUT file: $!\n";
close(FILE) || die "Unable to close OLD file: $!\n";