(my $mask = $s1) =~ tr{-\x00-,.-\xff}{\x00\xff};