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