use strict;
use warnings;

my $byte = 0b00100100;
my $opCode = ($byte & 0b11100000) >> 5;

printf "Opcode is 0x%02X\n", $opCode;

##</code><code>##

Opcode is 0x01