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

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