open 0;$a=<0>;print grep$a!~/\Q$_/,map chr,0..127