$_="7b7065616c716d65242c73747163242c282c70713d74247c6e7d246939722f29696c
2c702f73732f756e746a612220746568657470686f202065726c6b7263616e5c23212323
723b232322".23x6;@a=/\S\S/g;$x=6;for(0..4){$_="321332233123";@b=/./g;for
(4,3,2,2){push@c,$y=$x;push@c,map$y-=pop@b,0..1,$x+=$_}$x=$y+13};while($
p<$#a){$d=1;$n=0;for(0..6){$n+=$d;$s="%2c";print$"x($d>0?24-7*($n-1):3+(
$_-3)*2);map{printf"%s$s",$"x7,hex$_}@a[$p..$p+$n-1];print$/;$p+=$n;$d=$
n-4?$d:-$d}}map{$t.=chr hex$a[$_]}@c;eval$t