my $stoval = "$pckval" ^. 0x80;