Help for this page

Select Code to Download

Select or download this

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