$Str1 = "000001";
#$Index = index($Str1, [1-9]);
$Index  = @{[$Str1=~/(?<=0)./g]}+0;
print "$Index\n";