(my $mask = $from) =~ s/(\w)|./ $1 ? $1 & ' ' : "\0" /egs;