$ perl -le 'print ord("5") << 4'
848

##</code><code>##

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