$Str1 = "000001";
$Index = index($Str1, [1-9]);
print "$Index\n";