http://qs1969.pair.com?node_id=44097

I was playing around with pack/unpack (for other purposes than obfuscation) and came up with this :)
#!/usr/bin/perl $/=undef;$d=<DATA>;$d=~s/\s//g;eval unpack"a*",pack "H*",join"",reverse split/(..)/,substr$d,0,128;&$a( join"",reverse split/(..)/,substr$d,128); __DATA__ 0a3b7d292974666968732c222a4822286b6361702873736572706d6f636e7 520746e6 9727 07b6 27 57 3 3d6 1240a3b6 269 6 c5a 3a3a7 3 73657 2 706d6f4 32065 73 754e4669 be 03f 98 103f4 f f6fa0 7 e3ff6f1 11579 9c 75c825e8 b 6a2a7 1 de 8a 9b2 f81 21 edbb 3 0 2188e 0 ed701 8 6bd67b4 06b 9579 9d af2d 3 f5461 2 caced c c5309 a f585397 51c1 0bb e37 37 937ee 2 cd c8 b 66e61 c7 f34d9eb415be54eef8d4309d8ef3d308388ccb25f7c9a92fb840c9b458d03 af53a5fddd8 bdd285 fd f67 90 2e69 cd20e0367dbb 5177bdbc2e3 75 ad b 5edc1 d c2f9 e ace bcc675236356b 5a1e1b24d6c 8a a6 c edbd9 2 261a951 4d 3ca4bbb55e0c71 87482f9474e 94 60 3 18478 b 125680e ac8b6bb3e71f61d 851f5ae6bbb 3e 8e 3 ac1ac f 08ac917 c4 18dababf9c5c00 6fd2c97d5d1 12 50 8 d4b1a a 7c56 d 76c 341a172890c5f 9bdfdc0ae4eb 8e b50 264 6b 1d6f f3889b5b8f8a 09e793f0420fb5275e741a70bc8063bd383e19f380be6582cf319df4373ca 504927866b9e8d531b2779d5d964db0d3aa56ae7b55533e675de963d837f0 fbaad0e85f580b04a592e339924fe09dcf3215c40397f70b4a5ad05ec3b82 d13ddcc6afe024a65ae065c58482472379dc782107f149e272c2699490b0a f31f440218f307a5a0b956e7e040da3e4fcb5135a601f87e006ca0fe142b7 17c1c8238a01e7001d3f043e4d83305a76fd21c3867240862f6f7376f6525 f7fd711e81992bb4b69b28407ee872050410f6c9143d203f4d97a5ce82beb bc0c30dc6ecb53ad9c78


/brother t0mas