$len= length( ( $dif =~ /^(\0+)/ )[0] );