#!/usr/local/bin/perl
use strict;
use warnings;
use 5.010;

my $bin ="\x15\xED\xB0\x44\xB5\xEB\x2B\x05\x74\x1B\xD6\x5C\xBB\xE9 4F\x30\x";

my $hex = unpack("H*", $bin);

my $cmp = pack("H*", $hex);

if ($cmp eq $bin) {
  say "pack ok";
}