Select Code to Download

$sql =~ s/
  \bADD\s+CONSTRAINT\s+  # lead-in to clause
  (\w+)\s+               # the constraint name
...
/
  ADD CONSTRAINT $1 FOREIGN KEY (
/x;