DNA is LIFE

Desc:
You have to know that in biology DNA CODE (ATCG)
is converted into Aminoacids with a code like GGA - G
Transform your name in DNA!
Usage:
perl dna.pl yourname
Spiral algorhitm from How to (ab)use substr, but is not a clone!
#!/usr/bin/perl use strict; $_=' @I NC=s plit (/ /,uc( $AR GV[0 ]));o pen( DATA," <$0" );und ef$/ ;$_=<D ATA>;$_=~s/(.*)GGG/GG G/gsm;$/="\n";forea ch$_(keys%ENV){del ete$ENV{$_};}for each(@_= sp lit(/\./, $_)){@AR GV=split(/$ "/)unless($_Zeq Z1);$A RGV[1]=~s/\ s//Zif($ARGV[1]);$A RGV[0]=~s/\s//Zif($A RGV [0]);$_=r and ;nextZi f$_ >0.5and$ ARGV [1]andZe xists $ENV{ $ARGV[1]};$ ENV{$ARGV [1]}=$AR GV[0]if($AR GV[0]and$ARGV[1 ]);} @ARGV=();f oreach(@INC){push( @ARGV,Z$EN V{$_}) ;}f ore ach ("@ARGV"x 3)Z{ @_=split (//,$_);fo reach(@ _){$^O= $"x75;if($ _Zn eZ$"){su bst r($^O,sin (++ $a/8)*32 +32,1)=$_;tr/ATGC/ TACG/;substr($^O ,sin($a/4)* 14+32,1) =$_;pri nt"$^O $/";sel ectZ$b,$b ,$b,0.0 5;}}}'; $_=~s/\s//gm;$_=~s/Z/$"/gm;eval $_;exit; GGG G.GGA G.GGC G.GGT G.GAG E.GAA E.GAC D.GAT D.GCG A. GCA A.GCC A.GCT A.GTG V.GTA V.GTC V.GTT V.AGG R.AGA R. AGC S.AGT S.AAG K.AAA K.AAC N.AAT N.ACG T.ACA T.ACC T. ACT T.ATG M.ATA I.ATC I.ATT I.CGG R.CGA R.CGC R.CGT R. CAG Q.CAA Q.CAC H.CAT H.CCG P.CCA P.CCC P.CCT P.CTG L. CTA L.CTC L.CTT L.TGG W.TGC C.TGT C.TAC Y.TAT Y.TCG S. TCA S.TCC S.TCT S.TTG L.TTA L.TTC F.TTT F.XXX O.TGA U. TAG B.TAA Z. 1

by Tucano
You can change the genetic code if you want:
GGG G.GGA G.GGC G.GGT G.GAG E.GAA E.GAC D.GAT D.GCG A. GCA A.GCC A.GCT A.GTG V.GTA V.GTC V.GTT V.AGG R.AGA R. AGC S.AGT S.AAG K.AAA K.AAC N.AAT N.ACG T.ACA T.ACC T. ACT T.ATG M.ATA I.ATC I.ATT I.CGG R.CGA R.CGC R.CGT R. CAG Q.CAA Q.CAC H.CAT H.CCG P.CCA P.CCC P.CCT P.CTG L. CTA L.CTC L.CTT L.TGG W.TGC C.TGT C.TAC Y.TAT Y.TCG S. TCA S.TCC S.TCT S.TTG L.TTA L.TTC F.TTT F.XXX O.TGA U. TAG B.TAA Z.

other features are


In reply to DNA is Life by tucano

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":