in reply to index using a range

$Str1 = "000001"; print length($1) if $Str1 =~ /^(.*)[0-9]$/;
UPD:
Probably better /^(.*)[0-9]/; (without '$' in the end of regexp)