while $mask =~ /1+/g