open my ORIGINALFILE, '<', 'file.sql' or die... etc
open my CLEANEDFILE, '>', outfile... etc, as usual
while (<ORIGINALFILE>){
  next if /^\s*--.*$/   ;
  s/\;\s*--.*$/;/       ;
  print CLEANEDFILE $_       ;
}