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