if ($seq =~ m/ATGAA(.*)TGCCG/){
     print $1;
}