#/usr/bin/perl -w
use warnings;
use strict;
$|++;
$_=unpack("B*", pack ("H36","ab5cf4fa1bafd28972fb0972b3ea218eb972"));
while (/(\d{6})/g){print pack ("B*","$[$|$1");}

##</code><code>##

my @foo = ("just anoth"," perl hack", "");
print join "er",@foo;