Yet another file parser

ddl-helper

#!/usr/bin/perl

open INFILE, "input.sql" or die $!;
open OUTFILE, ">output.sql" or die $!;

while (<INFILE>) {
    if (/^(?:(?!\s+\);).)*$/s) {
      s/;/\//;
    }
    print OUTFILE;
}