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

update for that matter, this may be less sexy, but hey :)

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

That could be combined with the original Code. To lazy to write it now.

Must be sleepy. Why the i flag in the while?

or, for special-variable points,

$,="er";
print "Just anoth"," p","l hack","";
[download]

or

$,=" ";$\="er";
print "Just","anoth";
print "","p";
print "l","hack";
[download]

It's debatable that this buys you anything, but I really like $\ :-)




---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

To your second update: perl has an er too. The original removes it.