#!/usr/bin/perl
use v5.14;
use warnings;

my $packed_bytes = "ABCD";

my $bin = unpack "B*", $packed_bytes;

say $bin;