#!/usr/bin/perl

# http://perlmonks.org/?node_id=1141773

use strict;
use warnings;

print handlingbinary( "139686DA20C1" ), "\n";

sub handlingbinary
  {
  return join '', ('A'..'Z')[ map { oct "0b$_" }
    (unpack 'B*', pack 'H*', shift()) =~ /.{5}/g ]
  }

##</code><code>##

COLINWRAY