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

Update: Doesn't work for "001001", for example...