Thanks for catching the problem.

BTW, I had to change the condition in substrref to

while $mask =~ /1+/g
[download]

to get the same results as from the other methods.