Select Code to Download

open my ORIGINALFILE, '<', 'file.sql' or die... etc
open my CLEANEDFILE, '>', outfile... etc, as usual
...
  s/\;\s*--.*$/;/       ;
  print CLEANEDFILE $_       ;
}