while $mask =~ m[([^ ]+)( +|$)]g;