>perl -wMstrict -le
"my $bin = qq{\x45\xd2};
 printf qq{0x%04X \n}, unpack 'v', $bin;
"
0xD245

##</code><code>##

>perl -wMstrict -le
"my $bin = qq{\x45\xd2\xff\x76\x89\x3a\x00\x33};
 my @data = unpack 'v4', $bin;
 printf '0x%04X ', $_ for @data;
"
0xD245 0x76FF 0x3A89 0x3300

##</code><code>##

>perl -wMstrict -le
"my $bin = qq{\x45\xd2\xff\x76\x89\x3a\x00\x33};
 my @data = map reverse(unpack 'v*'), unpack '(a4)*', $bin;
 printf '0x%04X ', $_ for @data;
"
0x76FF 0xD245 0x3300 0x3A89