if ($dnaseq=~m/aataaa/gi){
	$pos = index($dnaseq, 'AATAAA');

	substr($sigseq, $pos+5, 1, "P");

}