open (FILE,"+<db_backup.sql") or die "Could not open file db_backup.sql, $!";
open (RES,">result.sql");
my $total = 0;
while  (my $line = <FILE>)
{
        $line =~ s/DROP/\/*/g;
        $line =~ s/CREATE/\/*/g;
        print RES $line;
}