$ perl -le'
my $Str1 = "000001";
$Str1 =~ /[1-9]/ and my $Index = $-[ 0 ];
print "$Index\n";
'
5
[download]