Yowl, all cattiness aside, got carried away investigating
the vec function.

@b = qw(164 87 55 71 2 20 230 246 71 134 86 39 2 
101 86 54 2 164 20 5 132 18);for(@b){$b.=chr($_)}
while($o<length($b)*2){push @c, vec($b, $o++, 4)}
for(@c){$_=sprintf"%1x",$_}$_=join'',@c;print chr 
hex$1 while/(..)/g;print"\nHope you enjoyed it!";

tachyon
[download]