my @l = split('', $str);
                 my $length=@l;