$ perl -le'$x = () = "2020" =~ /[1]{0}/g; print $x'
5