Select Code to Download

my @ins_fields= ("log");
my @ins_values= ("''");
...
my $ins_fields = join ",", @ins_fields;
my $ins_values = join ",", @ins_values;
print "INSERT INTO $log ($ins_fields)\nVALUES ($ins_values)";

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

for (1..10) {
    my $foo = "_" x $_;
...
    $foo =~ s/___?/_/;
    print "method two : $foo\n";
}