Hello Monks:

I am trying to store both the high and low nibbles from a byte into variables. I am able to store the high nibble by doing:

my $highnibble = ((ord $byte[0]) >> 4));
The variable $highnibble prints the right value.
[download]

Now, I cannot get the following to work:

my $lownibble = (((unpack ("H", $byte[0]) << 4) >> 4));
The variable $lownibble prints the wrong value (value of $highnibble).
[download]

What am I doing wrong?

Thanks, RV