A bit cryptic, but without the need of $1:

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