print pack( 'c', &$s(1) ^ unpack( 'c', pack( 'b*', $_{72} ) ) );