my @ins_fields= ("log");
my @ins_values= ("''");
for (1..25) {
    $writer[$_ -1] = "value of writer". ($_-1) ;
    push @ins_fields, "log$_";
    push @ins_values, $writer[$_ -1];
}
my $ins_fields = join ",", @ins_fields;
my $ins_values = join ",", @ins_values;
print "INSERT INTO $log ($ins_fields)\nVALUES ($ins_values)";


##</code><code>##

        $findings=~s/,//g;
        $findings=~s/ /_/g;
        $findings=~s/\///g;
        $log="$findings";
        $log=~s/:/_/g;
        $log=~s/\./_/g;
        $log=~s/___/_/g;
        $log=~s/__/_/g;


##</code><code>##

for (1..10) {
    my $foo = "_" x $_;
    $foo =~ s/_+/_/;
    print "method one : $foo\n";

    my $foo = "__" x $_;
    $foo =~ s/___?/_/;
    print "method two : $foo\n";
}