use strict;
use warnings;

my $s = q<��������������������������Ó�����і����ߑ�����ё������ќ��ߏ�>;
print pack "C*", map { $_ ^ 255 } unpack "C*", $s;