A bit of fun with pack/unpack

[FloydATC]

My first, humble attempt at writing (intentionally) obfuscated code:

use strict;
use warnings;

@==map{unpack('B24',pack('V',$_))}(12580855,16776063,103792,10764419,8
+561235,856483,1974885);
foreach$"($[..23){$:=$[;foreach$\($[..6){$:.=substr($=[$\],$",!$[)}pri
+nt(pack('B8',$:))}print$/;

[moritz]

You can shave off a few characters by not using parens, and the blockless form of map:

use strict;
use warnings;

@==map unpack('B24',pack'V',$_),12580855,16776063,103792,10764419,8561
+235,856483,1974885;
for$"($[..23){$:=$[;for$\($[..6){$:.=substr $=[$\],$",!$[}print pack'B
+8',$:}print$/;

[FloydATC]

That's so much better, thanks for the tip :-D

[perlaintdead]

Not too bad. I would suggest reading documentation on functions and finding the little know/used parts of those functions and also thinks about what weird things you can do with them.