my @lines = split "\n", $schema;
for (@lines) {
  ...
  s/\)\n/\);\n/;  
  ...
  }