sub complement {
#        1         2         3
#23456789012345678901234567890123456789
join"",grep$_[0]!~/\Q$_/,map chr,1..255
#also
pack'C*',grep$_[0]!~/\Q@{[chr]}/,1..255
}