$_="ACTGCAATCGTAGAAAATTCGCTAAAAGCTCAATCG";
print "$_\n";
tr/ACGT/TGCA/;
print reverse($_)."\n";
while (/([GATC])(A{2,})/ig) {
print " $1 \t $2 \t $& FOUND @".(pos()-length($&)+1)."\n";
}