#!/usr/bin/perl
$_= q#sub'C{25+
20*c AAAAAAAAAAAAAAAAAAAAAA TTTTTTTTTTTTTTTTTTT os(pop()*
2/pop) }for(0
..1638){$ T[$_
][C(14,$_)] =$
T[$_][C(14,$_ CCCCCCCCCCCCC GGGGGGGGGGGGGGGGGGGGGGG +21)
]="\e[1mo\e[0m "}$C=$
T=$l=$f=0;sub'g{ ($d,$s)=
@_;my$l=(length$s )+1;$p='-'x
(int($d/$l)-1);my$TTTTT AAAAAAn;for(split/
/,$s){$n.=$p.$_}$n. =$p;$n=~s/-([\
w,])-/G$1G/g;$n=$l>$d?substr(
$n,int(($l-$d)/2),$d)
:$n;while($d>=length$
n){($n='-'.$n)..($n=$n.'-')}
split//,$n}sub'T{ print"\e[2J\e
[0;1f\n"}sub'A{$ g=0;@g=();m
ap{push@g,${g}if $_;$g++}@
{pop@_};($g[1] AAAAAAAAAAAAA TTTTTTTTTTTTT-$g[0])
}T;forG$A(@T ){$c=
qw(tsuJG-G-G -Gr
ehtonaG-G- G-
GlrePG-G CCCCCCCCCCCCCCCCCCCC GGGGGGGGGGGGGGGGGGGGGGGG -G-G
,rekc ahG-G
-G- )[$C%20
]; $T=0;@A=g
(A TTTTTTTTTTTTTTTTTTTTT AAAAAAAAAAAAAAAAAAA ($A),$c);fo
r(@{ $A}){print$_?
do{$T= $T&&${l}ne$_?
0:1;$l=$_ }&&$_:$T?!($C%4
)?do{$^=pop GGGGGGG CCCCCCCC @A;'^'eq${^}?'G'
:$^}||'-':' G':'G'}print"\n";
$C++;if(!($C%20)){select$y,$y,$
y,.08;T}}#,s*[ATCG]{2,}**g
,s,\s+,,g,s,G, ,g,
eval $_ && chargrill #
####
$ perl -MWin32::Console::ANSI dna.pl
##
##
$ sed 's/eval/print/' obfu.pl | perl | perl -MO=Deparse
##
##
s**lil*; $*=join'',sort split q**; s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)