/usr/bin/perl -e '$a=hmiaticlttqop;@b=qw;//xyz/ xy@xyz 4321282;;($n,$b
,$c)=($a ^pack h26, C0C0F1800110202001A52100D1)=~m;(.{5})(.{4})(.{4});
;$r=qq;\u$n "Cogent" \u$b \n;;$i=-1;map{$r.=q;<;;$j=-1,$i++;while(++$j
<length$a){$r.=substr$a,$i +$j*( 2-$i%2*2+2),1;}$r.=q;:;;s;x;$n;g;s;y;
$b;ge;s;z;$c;g;$r.=$_;$r.=q;> ;;}@b;print qq;$r\n;;' # New!  Improved!