my $log_file = "/c/mysql.out";
my $out_file = "/c/mysql.dshield";
open LOG, "$log_file" || die "Can't open log file: $!";
open OUT, ">$out_file" || die "Can't open output file: $!";
while (<LOG>) {
		s/,/\t/g;
	print OUT $_;
	}
close OUT || die "Can't close the output file: $!";
close LOG || die "Can't close the log file: $!";