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

UPD:
Probably better /^(.*)[0-9]/; (without '$' in the end of regexp)