sub buk2{
    my $s = shift;
    substr($s, $_-1, 1) eq substr($s, $_, 1) and return for @_;
    return 1;
}