my $Str1 = "000001"; 
my $Index = length($1) if $Str1 =~ /^(0*)[1-9]$/; 
print "$Index\n";