my $str   = '000001';
my $index = length(($str =~ /^(0*)/)[0]);