sub invert{ #23456789012345678901234567890123456789 $_=pack'C*',1..255;eval"tr/$_[0]//d";$_ } print invert('just Another Edge Case Waiting to Crash!');