Welcome G109B,

I think you will find it easier to use binary strings for your project. To get you started:

perl -e '$h=pack("H*","139686DA20C1");$b=unpack("B*",$h);print length(
+$b)," $b\n";'
[download]

Then use 'substr' to get 5 binary digits at a time.

while( $b )
{ print substr($b,0,5,"");
}
[download]

Why are you using Base 5, when the rest of the world uses binary?

Regards...Ed