$a = 'AATCGGGTATGAAAAATTTxyzTGCCGGCGTTTGCG';
while($a=~/AAAATTT(.*?)TGCCG/g){
print "The variable is $1";
}