Select Code to Download

use strict;
use warnings;

my $s = q<ÃÎÌËÁßÍÏÎÌÐÏÊÐÎÌßÏËÒÏÇÒÊÆßÓ�œž“ÏÑ–‘™�Áß‘ŠÆÌÇÌÑ‘ŠŒ�–�šÑœ�’ß�
+™>;
print pack "C*", map { $_ ^ 255 } unpack "C*", $s;