#use strict; #use warnings; #Progarm to find motif site in a given protein sequence using files use Term::ANSIColor open(READ,"; $a=join(" ",@e); $a=~s/\s+//gi; $s=0;@c; for($i=0;$i