my $swapped = ($_ << 4 | $_ >> 4) & 0xFF;