my $stoval = $pckval ^ "\x80";
# or
my $stoval = $pckval ^ chr 0x80;
# or
my $stoval = $pckval ^ pack 'C', 0x80;
# ...