my $pLog = $_; $pLog = encode("utf-8",$pLog); my @strUTF = split(//,$pLog); for(my $i = 0; $i < scalar(@strUTF); $i++){ print chr(ord($strUTF[$i]) ^ 255);