my $search = "AATAAA";   			
while ( $dnaseq =~ m/$search/gi ) {   		
       substr($sigseq, pos($dnaseq), 1, "P");	
}