sub f { $_=pop;y/ACUG/0-3/;s|(.)(.)(.)|(map{ord>91?uc:(),uc} 'KnKttiIMRsRQhQppllrr.y.ssLfL.cWEdEaavvgg'=~/./g)[$1*16+$2*4+$3]|eg;$_ } #### sub f{ $_=pop;y/UCAG/0-3/;s/(.)(.)(.)/substr "FFLLSSSSYY..CC.WLLLLPPPPHHQQRRRRIIIMTTTTNNKKSSRRVVVVAAAADDEEGGGG", $1<<4|$2*4|$3,1/ge;s/\d//g;$_ }